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1 REM a*????-*'** by m.k 
10 SCREEN 1,1,1 :CLS 
15 DIM E(510),F(510),D(510),G<8),H(8 
25 L0CATE3, 1 : PR I NT ‘ 10 t*39 ■79’ 

27 RESTORE 7750 

28 FORI=l TO 203 

29 IF I=25ORI=90ORI=147THEN32 

31 READ E(2*I-1),E(2*I) 

32 NEXT I 

35 L0CATE3, 1 : PRINT * 

38 SCREEN 2 ,2 ,2 : COLOR0 , 1 , 1 sCLS 
40 CONSOLE, ,0sH3=0 
50 LINE(9,58)-( 9,63) 

60 LINE( 27 , 18 )-< 27 , 20 ) 

70 LINE( 27, 35 )-( 30 , 50 ) 

80 LINE(27,50 )-(27,60 ) 

95 LINEC 40 ,59 )-( 40 , 61 ) 
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100 LINE( 70 , 18)-( 60 , 40 ) :LINE-( 70 , 63 ) 

115 LINEC110,18)-C110,60) 

118 LINE( 100 , 24)-( 120 , 24 ) :LINE-( 100,60) 

125 LINE ( 100 ,30 )-( 130 , 30 ) 

130 LINE( 130 ,30 )-( 130 ,60 ) 

135 LINE(170,18)-(170,21) 

140 LINE( 155,30 )-( 155,40 ) :LlNE-( 182,40 ) 

150 LINE-C 182,60 ) 

155 LI NEC 207, 35 )-( 207,50 ) 

160 LI NEC 230 , 40 )-( 230 ,60 ) 

165 GOSUB 2800 
200 L0CATE2 , 7 

210 PRINT'menu’ , * ' ; * C 1 ) * ; * ****t95.Y /\“ 74" 

220 LOCATE 8,8 

230 PRINT' C 2)**** A3" DM A“7T' 

240 L0CATE2, 10 

250 PRINT ' 7VL" D9***t9* D72C YU h" 939 ) >' 

260 LOCATE10 , 11 

270 PRINT "return* > joystick'm ’ 

280 LOCATE10 , 12 

290 PRINT - >space*~ " 

780 LOCATE10 , 14 

790 PR I NT "hit 1 or 2 ?’ 

795 IF H3=10 THEN 800 

796 H3=H3+1 

797 GOTO 200 

800 U$=INKEY$: IF U$=" THEN 800 
810 IF U$='l' OR U$='2' THEN 1000 
830 GOTO 800 

1000 SCREEN 3,2,2s C0L0R1 ,2,1 sCLS 

1015 Fl=50 s F2=50 s F3=50 : F4=50 s F5=50 : F6=50 

1018 RESTORE7000 

1020 FOR 1=1 TO 463 

1030 READ X , Y 

1060 PSET C 90+X , 96-Y ) s PSET C 90-X , 96-Y ) 

1070 NEXT I 
1140 PAINTC70.41) ,1,1 
1142 Bl=45: GOSUB 1150 
1144 G1=1:B1=45:GOSUB1150 
1146 Bl = 109s GOSUB 1 150 

1148 G1=1sB1=109!GOSUB1150 

1149 GOTO 1270 

1150 FOR M=0 TO 12 STEP 2 
1155 FOR H2=0 TO 6-M/2 
1157 IF Gl=l THEN 1162 

1160 PSET C B1+M+4»H2 , 126-M ) , 4 

1161 GOTO 1165 

1162 PSET C B1+M+4#H2 , 126+M ) , 4 
1165 NEXT H2 

1170 NEXT M 
1175 G1=0: RETURN 

1270 COLOR 2 :PAINTC80 ,53) , 1 , 1 sPAINTC 100 ,53) , 1 , 1 
1320 COLOR 3 s L0CATE9 , 2 : PR INT ' L?" 972 ' 

1650 E1=5:A1=0:C1=1 :U=0 :V=0 :A=1 :B=24 : GOSUB 3000 
1652 El=6s A1=0 :Z1=0 :U=0 : V=0 :C1=-1 : A=1 :B=24: GOSUB 3000 
1900 LOCATE10 , 2 : C0L0R3 SPRINT' t?* 9X ' 

1990 A1=0 :E1=1 :Z1=0 :U=0 :V=0 :C1=1 :A=26:B=89: GOSUB 3000 
1992 A 1=0 :E1=2:Z1=0 sU=0 : V=0 :C1=-1 : A=26 :B=89: GOSUB 3000 
2275 A1=0 : Z1=0 :E1=3 :U=0 s V=0 :C1=1 s A=91 :B=146: GOSUB 3000 
2600 A1=0 : Z1=0 :E1=4 :U=0 s V=0 :C1=1 : A=148:B=203 sGOSUB 3000 
2700 IF ABSCGC 1 )-66)<=4 AND ABSCHC 1 )-83)<=4 THEN 2715 
2712 GOTO 2850 


') x h m < 



2715 IF ABS(G<2)-114)<=4 AND ABS(H(2)-83)<=4 THEN 2720 
2717 GOTO 2850 

2720 IF ABS( G( 3 )-64 )<=4 AND ABS(H(3)-94)<=4 THEN 2725 
2722 GOTO 2850 

2725 IF ABS (G(4)-114)<=4 AND ABS( H( 4 )-94 )<=4 THEN 2727 

2726 GOTO 2850 

2727 IF ABS(G(5)-90)<=4 AND ABS(H(5)-111 )<=4 THEN 2732 
2730 GOTO 2850 

2732 IF ABS(G<6)-90)<=4 AND ABS(H(6)-132)<=4 THEN 2737 
2735 GOTO 2850 

2737 IFU$= “ 1 ’ THEN GOSUB2800 :GOTO 2900 

2738 IF F1+U1=0 OR F1+U1=8 THEN 2740 

2739 GOTO 2850 

2740 IF F2+U2=0 OR F2+U2=8 THEN 2742 

2741 GOTO 2850 

2742 IF F3+U3=0 OR F3+U3=8 THEN 2744 

2743 GOTO 2850 

2744 IF F4+U4=0 OR F4+U4=8 THEN 2746 

2745 GOTO 2850 

2746 IF F5+U5=0 OR F5+U5=8 THEN 2748 

2747 GOTO 2850 

2748 IF F6+U6=0 OR F6+U6=8 THEN 2750 

2749 GOTO 2850 

2750 GOSUB2800 :GOSUB2808:GOTO 2900 

2800 A$= ^ t240sllml0000o4g4o5c4e4g4g8g8g4e4e8e8e4c4e4c4o4gl ' 

2802 B$- ^ t240sllinl0000o4e4g4o5c4e4e8e8e4c4c8c8c4o4g4o5c4o4g4el " 
2804 C$= " t240sllml0000o4c4e4g4o5c4c8c8c4o4g4g8g8g4e4g4e4cl " 

2806 PLAY A$,B$,C$ 

2808 A$= ‘ o4g4o5c4e4g4g8g8g4g4e4c4o4g4g8g8g4o5cl " 

2810 B$= ] o4e4g4o5c4e4e8e8e4e4c4o4g4e4e8e8e4gl ‘ 

2812 C$= ‘ o4c4e4g4o5c4c8c8c4c4o4g4e4c4c8c8c4el ‘ 

2814 PLAY A$,B$,C$ 

2816 RETURN 

2850 FOR 1=1 TO 3000 tNEXT I 

2900 GOTO 1000 

3000 IF U$= " 2 " THEN 3500 

3005 L1=0 s L2=l : J=50 : KA=C1 : KB=0 

3010 FOR I=A TO B 

3015 F(2*I-1)=KA*E(2*I-1)+L1*E(2*I ) 

3017 F( 2*1 )=KB*E( 2*1-1 )+L2*E(2*I ) 

3032 IF IOA THEN 3035 

3033 GOTO 3040 

IFI=10RI=260R 1=74 0RI=91 OR 1=145 OR 1=146 OR 1=148 THEN3040 
3037 GOTO 3045 

3040 COLOR 3:PSET(F(2*I-1 )+210 , J-F ( 2*1 ) ) 

3042 GOTO 3050 

3045 LINE -(F< 2*1-1) +210, J-F ( 2*1 ) ) 

3050 NEXT I 

3060 IF El=l OR El=2 THEN 3090 
3070 IF El=4 THEN 3120 
3080 GOTO 3127 

3090 E(501)=(F(149)+F(169))/2:E(502)=(F(150)+F(170))/2 
3100 PAINT (E(501 )+210 , J-EC502) ) ,3,3 

3102 C0L0R2:PSET( < F( 161 )+F( 173 ) )/2+210, J-( F( 162 )+F( 174 ) )/2) 

3105 GOTO 3127 
3120 PA I NT (210, J), 4, 3 

3123 E(503)=(F(301)+F( 345 ))/2:E(504)=(F( 302 )+F ( 346 ) )/2 

3124 E(505)=(F( 357 ) +F ( 40 1 ) )/2:E(506)=(F(358)+F(402) )/2 

3125 C0L0R2 :LINE(F(503)+210, J-F (504))-(F(505)+210, J-F ( 506 ) ) 

3127 N1$=INKEY$ 

3129 IF El=5 THEN 3133 

3130 IF El=l THEN 3139 

3131 GOTO 3140 



3133 

LOCATE 9,2:C0L0R2: PRINT "fc?" 974’ 


3135 

L I NEC 53, 76)- (127, 106 ) , , BF 


3136 

LINE(53,76)-( 127, 106) , ,BF 


3137 

LINEC 73, 105)-( 107,136) , ,BF 


3138 

GOTO 3140 


3139 

LOCATE10 , 2 : C0L0R2 : PR I NT ' t 9' ')* ’ 


3140 

IF N1$=CHR$( 13 ) THEN GOSUB3700 : GOTO 3170 


3150 

GOTO 3127 


3170 

C0L0R2 s L INE ( 190 , J-15 ) - ( 230 , J+15 ) , , BF 


3190 

C0L0R3 : L I NE ( 208 , J-2 ) - ( 212 , J+2 ) , , BF 


3200 

N2$=INKEY$ 


3205 

I J=STICK( 1 ) 


3210 

IF N2$=CHR$( 32 ) THEN 5200 


3220 

IF STRIGC 1 )=1 THEN4000 


3240 

IF IJ=1 THEN X1=0 : Y1=4:G0T0 5000 


3250 

IF I J=2 THEN X1=4:Y1=4:G0T0 5000 


3260 

IF I J=3 THEN Xl=4: Y1=0 :GOTO 5000 


3270 

IF I J=4 THEN Xl=4 :Y1=-4:G0T0 5000 


3280 

IF I J=5 THEN X1=0 : Y1=-4:G0T0 5000 


3290 

IF I J=6 THEN Xl=-4s Y1=-4:G0T0 5000 


3300 

IF I J=7 THEN X1=-4:Y1=0:GOTO 5000 


3310 

IF I J=8 THEN Xl=-4: Y 1=4 s GOTO 5000 


3320 

GOTO 3200 


3500 

J=50+INT ( RNDC 1 )*100 ) 


3510 

H=INT( RNDC 2 )*7 )+l 


3511 

IF El=6 AND H=4 THEN 3510: IF El=2 AND H=4 THEN 3510 


3512 

IF El=5 THEN U1=H 


3513 

IF El=6 THEN U2=H 


3514 

IF El=l THEN U3=H 


3515 

IF El=2 THEN U4=H 


3516 

IF El=3 THEN U5=H 


3517 

IF El=4 THEN U6=H 


3520 

ON H GOTO 3585,3590,3600,3610,3620,3630,3640 


3585 

K1=0.71:L1=-0.71 :K2=0 .71 :L2=0 .71 :KA=K1*C1 :KB=K2*C1 :GOTO 

3010 

3590 

K1=0 : Ll=-1 : K2=l : L2=0 : KA=K1#C1 : KB=K2*C1 : GOTO 3010 


3600 

Kl=-0 , 71 :Ll=-0 .71 :K2=0 . 71 :L2=-0 . 71 :KA=K1*C1 :KB=K2*C1 :GOTO 3010 

3610 

K1=-1:L1=0: K2=0 :L2=-1 :KA=K1*C1 : KB=K2*C1 : GOTO 3010 


3620 

Kl=-0 . 71 :L1=0 . 71 : K2=-0 . 71 : L2=-0 . 71 : KA=K1*C1 : KB=K2*C1 : GOTO 3010 

3630 

K1=0 :L1=1 : K2=-l : L2=0 : KA=K1*C1 :KB=K2*C1 : GOTO 3010 


3640 

K1=0 . 71 : L1=0 . 71 : K2=-0 . 71 : L2=0 . 71 : KA=K1#C1 : KB=K2*C1 : GOTO 

3010 

3700 

FOR JB=15 TO 0 STEP -1 


3710 

SOUND1.0: SOUND 3,55 


3720 

SOUND 8, JB 


3730 

NEXT JB 


3740 

RETURN 


4000 

REM 


4010 

IF STICKC 1 )=2 THEN A1=A1+1 : GOSUB3700 : GOTO 3200 


4020 

IF STICKC 1)=4 THEN A1=A1-1 : GOSUB3700 : GOTO 3200 


4027 

N3$=INKEY$ : IF N3$=CHR$(13) THEN 3200 


4028 

GOTO 4010 


5000 

REM 


5010 

U=X1+U:V=Y1+V 


5012 

IF U+210<9 OR U+210>246 THEN5017 


5013 

IF J-V<9 OR J-V>182 THEN 5017 


5015 

GOTO 5020 

, BF 

5017 

C0L0R2 : LINEC U-Xl+208, J-C V-Yl )-2)-( U-Xl+212, J-C V-Yl >+2) , 

5018 

GOSUB 5080: RETURN 


5020 

IF Zl=l THEN 3200 


5040 

C0L0R2 : L I NE ( U-Xl+208 , J- ( V-Y 1 )-2 )-( U-Xl+212 , J-( V-Yl )+2 ) , 

,BF 

5042 

IF U+210<9 OR U+210>246 THEN GOSUB5080 : RETURN 


5043 

IF J-V<9 OR J-V>182 THEN GOSUB5080 : RETURN 


5045 

IF U$= - r THEN Jl=170 :GOTO 5048 


5046 

IF U$=’2’ THEN J1=INT(RND(3)*40 )+170 

')* FSgt < 



5048 IF U+210< J1THEN Z1=1:G0T0 3200 
5050 COLOR 3 

5060 LINE( U+208, J-V-2)-( U+212 , J-V+2 ) , ,BF 

5070 GOTO 3200 

5080 FOR JA=15 TO 0 STEP -1 

5090 SOUND1.0: SOUND 3,55 

5100 FOR 1=1 TO 10 : NEXT I 

5110 S0UND8.JA 

5120 NEXT JA 

5130 RETURN 

5200 FOR JC=15 TO 0 STEP -1 
5210 SOUND 6,1: SOUND 3,55 
5220 SOUND 9 , JC 
5230 FOR 1=0 TO 5: NEXT I 
5240 NEXT JC 

5510 IF E1=5THEN G< 1 >=U+210 : H< 1 )=J-V 
5530 IF El=6 THENG(2)=U+210:H(2)=J-V 
5550 IF E1=1THEN G( 3 )=U+210 : H( 3 )=J-V 
5570 IF El=2 THEN G( 4 )=U+210 : H( 4 )=J-V 
5590 IF E1=3THEN G< 5 )=U+210 : H( 5 )=J-V 
5610 IF El=4 THEN G(6)=U+210:H(6)=J-V 

6007 IF U+210 >=J1 AND U+210<=246 ANDJ-V>=9AND J-V<=182 THEN 6009 

6008 GOTO 6010 

6009 COLOR 2:LINE(U+208, J-2-V)-(U+212, J+2-V) ,BF 

6010 IF U$="2‘ THEN 6500 

6011 Kl=l :L1=0 :K2=0 :L2=1 

6012 P1=0 

6013 FOR I=A TO B 

6017 D( 2*1-1 )=K1*F( 2*1-1 )+Ll*F( 2*1 )+U+210 
6020 D(2*I )=J-K2*F( 2*1-1 )-L2*F(2*I )-V 
6030 IF D( 2*1-1 )<0 OR D( 2*1-1 ) >255 THEN 6065 
6035 IF D(2*I )<0 OR D(2*I)>191 THEN 6065 
6038 P1=P1+1 

IF p l=10RI=10RI=260RI=740RI=910RI=1450RI=1460RI=148 THEN6050 
6044 GOTO 6051 

6050 COLOR 3:PSET (D(2*I-1 ) ,D(2*I ) ) :GOTO 6065 

6051 LINE -(D(2*I-1),D(2*I)) 

6054 IF I<51 THEN 6065 

6055 IF 1=73 THEN GOSUB6800 : GOTO 6065 

6056 IF 1=89 THEN GOSUB6810 : GOTO 6065 

6057 IF 1=144 THEN GOSUB6820 : GOTO 6065 

6058 IF I=B THEN GOSUB6830 
6065 NEXT I 

6067 IF El=5 0RE1=6THEN RETURN 
6069 IF El=l 0RE1=2THEN 6080 
6071 IF El=3 THEN 6105 
6073 IF El=4 THEN 6121 

6080 E( 501 )=(D( 149)+D( 169) )/2:E( 502)=(D( 150 )+D( 170 ) )/2 
6090 PAINT(E(501 ) ,E(502) ) ,3,3 

6092 C0L0R2:PSET ( (D< 161 )+D( 173) )/2, ( D( 162 )+D( 174 ) )/2) 

6095 RETURN 

6105 PA I NT ( U+210 , J-V ) , 2 , 3 
6115 RETURN 

6121 PAINT( 210+U , J-V ) , 4 , 3 

6123 E(503)=(D(301)+D( 345) )/2:E(504)=(D(302)+D( 346 ) )/2 

6124 E ( 505 ) = ( D ( 357 )+D(401))/2:E(506) = (D( 358 ) +D ( 40 2 ) ) /2 

6125 COLOR2:LINE(E(503) ,E(504))-(E(505) ,E(506) ) 

6128 RETURN 

6500 REM 

JE AK0 AND-1*A1>=8THEN Al=-l*(-l*Al-8*INT(-l*Al/8) ) :GOTO 6512 
6505 IF Al>=8 THEN A1=A1-8*INT( Al/8 ) 

6512 IF El=5 THEN F1=A1 

6513 IF El=6 THEN F2=A1 



6514 IF El=l THEN F3=A1 

6515 IF El=2 THEN F4=A1 

6516 IF El=3 THEN F5=A1 

6517 IF El=4 THEN F6=A1 

6520 IF A1=0 THEN 6011 

6530 IF A1 >0 THEN 6550 

6540 IF A1<0 THEN A1=8+A1 

6550 IF Al=l THEN K1=0 .71 :Ll=-0 .71 sK2=0 .71 :L2=0 .71 sGOTO 6012 

6560 IF Al=2 THEN K1=0 :L1=-1 sK2=l sL2=0 sGOTO 6012 

6570 IF Al=3 THEN Kl=-0 . 71 : Ll=-0 . 71 : K2=0 . 71 : L2=-0 . 71 sGOTO 6012 

6580 IF Al=4 THEN Kl=-1 s L1=0 s K2=0 :L2=-1:G0T0 6012 

6590 IF Al=5 THEN Kl=-0 .71 sLl=0 .71 :K2=-0 .71 :L2=-0 .71 sGOTO 6012 

6600 IF Al=6 THEN K1=0 :L1=1 s K2=-l : L2=0 sGOTO 6012 

6610 IF Al=7 THEN K1=0 .71 sl_l=0 .71 sK2=-0 .71 sl_2=0 .71 sGOTO 6012 

6800 LINE(D(51 ) ,D( 52) )-( D( 145) ,D( 146) ) sPAINT(U+210 , J-V) ,2,3 

6805 RETURN 

6810 LINE(DC147),D<148))-(D<177),D(178)> 

6815 RETURN 

6820 LINE(D(181) ,D( 182) )-(D( 287), 0(288 ) ) 

6825 RETURN 

6830 LINE(D(2*A-1) ,D(2*A) )-CD(2*B-l) ,D(2*B)) 

6835 RETURN 

7000 DATA 0,67,-1,67,-2,67,-3,66,-4,66,-5,66,-6,66,-7,66 
7010 DATA -8,66,-9,65,-10,65,-11,65,-12,64,-13,64,-14,64,-15,63 
7020 DATA -16,63,-17,63,-18,63,-19,62,-20,62,-21,62,-22,61,-23,62 
7030 DATA -24 , 60 , -25 , 60 , -26 , 59 , -27 , 59 , -28 , 58 , -29 ,58,-30,58,-31, 57 
7040 DATA -32 , 57 , -33 , 56 , -34 , 55 , -35 , 55 , -36 , 54 , -37 , 53 , -38 , 52 , -39 , 52 
7050 DATA -40,51,-40,50,-41,49, -42 , 48 , -43 , 47 , -44 , 46 , -45 , 45 , -46 , 44 
7060 DATA -47,43,-48,42,-48,41,-49,40,-50,39,-50,38,-51,37 
7065 DATA -51,36 

7070 DATA -52 , 35 , -52 , 34 , -53 ,33,-53,32,-54,31, -55 , 30 , -55 , 29 , -56 , 28 
7080 DATA -56 , 27 , -57 , 26 , -57 , 25 , -58 , 24 , -58 ,23,-59,22,-59,21, -59 , 20 
7090 DATA -59,19,-60,18,-60,17,-60,16,-60,15,-61,14,-61,13,-61,12 
7100 DATA -61,11,-61,10,-61,9,-62,8,-62,7,-62,6,-62,5,-62,4 
7110 DATA -62, 3, -62, 2, -62, 1,-62, 0,-62, -1,-62, -2, -62, -3, -62, -4 
7120 DATA -62 , -5 , -62 , -6 , -62 , -7 , -62 , -8 , -62 , -9 , -62 , -10 , -62 , -1 1 , -62 , -12 
7130 DATA -62,-13,-62,-14,-62,-15,-62,-16,-62,-17,-61,-18,-61,-19 
7135 DATA -61,-20 

7140 DATA -61 , -21 , -61 , -22 , -61 , -23 , -61 , -24 , -60 , -25 , -60 , -26 , -60 , -27 
7145 DATA -60,-28 

7150 DATA-60 , -29 , -60 , -30 , -59 , -31 , -59 , -32 , -59 , -33 , -58 , -34 , -58 , -35 
7155 DATA -58,-36 

7160 DATA -57 , -37 , -56 , -38 , -56 , -39 , -55 , -40 ,-54,-41, -54 , -42 , -53 , -43 
7165 DATA -52,-44 

7170 DATA -52 , -45 , -51 , -46 , -50 , -47 , -49 , -48 , -48 , -49 , -47 , -50 , -46 , -51 
7175 DATA -45,-52 

7180 DATA -44 , -53 , -43 , -53 , -42 ,-54,-41, -55 , -40 , -56 , -39 , -56 , -38 , -57 
7185 DATA -37,-58 

7190 DATA -36 , -58 , -35 , -59 , -34 , -59 , -33 , -60 , -32 , -60 ,-31,-61, -30 , -61 
7195 DATA-29,-62 

7200 DATA -28 , -62 , -27 , -62 , -26 , -63 , -25 , -63 , -24 , -63 , -23 , -64 , -22 , -64 
7205 DATA -21,-64 

7210 DATA -20 ,-64,-19, -65 , -18 , -65 , -17 , -65 , -16 , -65 , -15 , -65 , -14 , -66 
7215 DATA -13.-66 

7220 DATA -12 , -66 , -11 , -66 , -10 , -66 , -9 , -66 , -8 , -66 , -7 , -67 , -6 , -67 , -5 , -67 
7230 DATA -4 , -67 , -3 , -68 , -2 , -68 , -1 , -68 , 0 , -68 

7240 DATA -25 , -57 , -23 , -59 , -21 ,-61,-19, -62 ,-16,-63, -14 ,-64,-12, -65 
7245 DATA -10,-66 

7250 DATA 0,62,-1,61,-2,60,-3,59,-4,58,-5,58,-6,57,-7,57 
7260 DATA -8,56,-9,56,-10,55,-11,55,-12,54,-13,53,-14,53,-15,52 
7270 DATA -16,52,-17,51,-18,51,-19,50,-20,49,-21,49,-22,48,-23,48 
7280 DATA -24 , 47 , -25 ,47,-26,46, -27 , 46 , -28 , 45 , -29 ,45,-30,45,-31, 44 
7290 DATA -32,44 



A -31,43,-31,42,-30,41, -30 , 40 , -29 , 39 , -28 , 38 , -27 , 37 , -26 , 36 
A -25,35,-24,34 

A -32 , 43 , -32 ,42,-31,41,-31,40,-30,39, -29 , 38 , -29,37 , -28 , 36 
A -28 , 35 , -27 , 34 , -27 , 33 , -28 , 32 , -29 , 32 , -30 ,32,-31,31, -32 , 31 
A -33,31,-34,32, -35 , 33 , -35 , 34 , -36 , 35 , -37 , 36 
A -38 , 35 , -38 , 34 , -39 , 33 , -40 ,32,-40,31,-41,30, -42 , 29 , -43 , 28 
A -43 , 27 , -44 , 26 , -45 , 26 , -46 , 25 , -47 , 24 , -48 , 23 , -48 , 22 , -49 , 21 
A -50,20 

A -49 , 20 , -49 , 19 , -48 , 18 , -48 , 17 , -47 , 16 , -47 , 15 , -46 , 14 , -45 , 13 
A -44,12,-43,11,-42,10,-41,9 

A -49,19,-49,18,-49,17,-48,16,-48,15,-47,14,-47,13,-47,12 
A -46 ,11, -46 , 10 , -45 , 9 , -44 , 8 , -43 , 7 , -42 , 6 , -43 , 6 , -44 , 5 
A -45,5,-46,4,-47,4,-48,3,-49,2,-50,1,-51,1,-52,2 
A -53,3,-54,4,-55,4 

A -54, 1,-54, 0,-54, -1,-54, -2, -53, -3, -53, -4, -53, -5, -52, -6 
A -52, -7, -52, -8, -51, -9, -51, -10, -51, -11, -50, -12, -50, -13, -49, -14 
A -48,-15,-48,-16,-48,-17,-47,-18 
A -55, 3, -55, 2, -55, 1,-55, 0,-55, -1,-54, -2, -54, -3, -54, -4 
A-54, -5, -54, -6, -54, -7, -54, -8, -53, -9, -53, -10, -53, -11, -52, -12 
A -52,-13,-52,-14,-52,-15,-51,-16,-51,-17,-50,-18,-50,-19 
A -51,-20 

A -52,-21, -53 , -21 , -54 , -22 , -55 , -23 , -56 , -24 , -57 , -25 , -58 , -26 
A -59,-27 
A -60,-28 

A -5,45,-6,46,-7,46,-8,46,-9,46,-10,46,-11,46,^12,46 
A -13,45,-14,44,-14,43,-14,42,-13,41,-12,41,-11,41,-10,41 
A -9,41,-8,42,-7,43,-6,44 

A -12,17,-14,17,-16,17,-18,16,-20,15,-22,14,-24,13,-26,12 

A -28 ,11,-30,10, -32 ,10,-34,9, -36 , 9 
A -13,0,-14,1,-16,2,-18,3,-20,3,-22,2,-24,2,-26,1 
A -28 , 0 , -30 , -1 , -32 , -3 , -34 , -5 , -35 , -6 , -36 , -7 , -34 , -6 , -32 , -5 
A -30, -5, -28, -4, -26, -4, -24, -3, -22 ,-3,-20, -4, -18, -4, -16, -3 
A -14, -3, -13,-1 

A 0.-6, -2, -6, -4, -8, -5, -10, -6, -12, -7, -14, -9, -15, -11, -16 
A -11, -18, -9, -19, -7, -20, -5, -20, -3, -22, -1,-23, 0,-23 
A 0 , -32 , -2 , -32 , -4 , -32 , -6 , -32 , -8 , -32 , -10 ,-31,-12, -31 , -14 , -30 

A -15, -29, -13, -31, -11, -32, -9, -34, -7, -36, -5, -37, -3, -38, -2, -38 

A -1,-38, 0,-38 

A 12, 4, 11, 4, 10, 4, 9, 4, 8, 4, 7, 4, 6, 3, 5, 3, 4, 2, 3, 2, 2, 1,1, 1,0,0 

A -1 , 0 , -2 , -1 , -3 , -2 , -4 , -2 , -5 , -3 , -6 , -3 , -7 , -4 , -8 , -4 , -9 , -4 
A -10, -4, -11, -4 

A -1 , 4 , -2 , 3 , -3 , 3 , -4 , 2 , -5 , 1 , -6 , 1 , -7 , 0 , -8 , -1 , -9 , -2 , -10 , -3 

A -11. -4, -12, -5, -11, -5, -10, -4, -9, -4, -8, -3, -7, -3, -6, -3, -5, -3 

A -4, -2, -3, -2, -2, -2, -1,-1, 0,-1, 1,-1, 2, -1,3, -2, 4, -2, 5, -2 
A 6, -2, 7, -2, 8, -2, 9, -2, 10, -1,11, 0,11, 1,11, 2, 10, 3, 9, 3, 8, 4 
A 7, 5, 6, 5, 5, 5, 4, 5, 3, 5, 2, 5, 1,5, 0,4, 1,0, 3, -1,4, -1,5, -1,6, 0,7,1 
A 7, 2, 7, 3, 6, 4, 5, 4, 4, 4, 3, 4, 2, 4, 1,3, 1,2, 1,1 

A 0.-8, 1,-8, 2, -8, 3, -7, 4, -6, 5, -5, 6, -5, 7, -5, 8, -4, 9, -4, 10, -4 
i 11, -3, 11, -2, 11, -1,10, -1,9, 0,8, 0,7, 1,6, 2, 6, 3, 5, 4, 5, 5, 4, 6 

A 4, 7, 3, 8, 2, 9, 1,9, 0,9, -1,9, -2, 9, -3, 8, -4, 7, -4, 6, -5, 5, -5, 4 

A -6, 3, -6, 2, —7, 1,-8, 1,-9, 0,-10, 0,-11, -1,-11, -2, -11, -3, -10, -4 
a “9 , -4 , -8 , -4 , -7 , -5 , -6 , -5 , -5 , -5 , -4 , -6 , -3 , -7 , -2 , -8 , -1 , -8 
i -2, -4, 2, -4 

i 0 , -4 , 1 , -4 , 2 , -4 , 3 , -4 , 4 , -4 , 5 , -3 , 6 , -2 , 7 , -2 , 8 , -1 , 9 , 0 , 10 , 1 

i 11.2,12,2,13,3,14,4,13,4,12,4,11,4,10,4,9,4,8,4,7,3,6,3 
i 5, 3, 4, 3, 3, 3, 2, 3, 1,3, 0,3, -1,3, -2, 3, -3, 3, -4, 3, -5, 3, -6, 3 
i -7, 3, -8, 4, -9, 4, -10, 4, -11, 4, -12, 4, -13, 4, -14, 4, -13, 3 
-12, 2, -11, 2, -10, 1,-9, 0,-8, -1,-7, -2, -6, -2, -5, -3 
-4 , -4 , -3 , -4 , -2 , -4 , -1 , -4 
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10 CONSOLE0 ,16,0,0: SCREEN1 , 1 , 1 : CLS : L0CATE5 ,5:PRINT*7-hA" 
20 L0CATE4 , 7 : PRINT " 99" Y7 WH' ’ 

30 PLAY " s9m20000 1 8o5egagegagggaeeeggaf ggafegagggaeeeee ’ 
40 GQTO1700 
50 SCREEN3.2.2 
60 SC=0 : MO=10 : MK=0 

70 L0CATE8, 1 :C0L0R1 :PRINT ‘3D7 " ;SC:L0CATE12,3:PRINT MO 
80 LINE(116,85)-(105,100),1:LINE(117,85)-(106,100),1 
90 LINE( 109, 92)-< 104,99) , 1 : LINE( 111 , 93 )-( 105, 102) ,1 
100 A$=INKEY$: IFA$< >’ “THEN290 





110 LINE( 116,85 )-( 105, 100) ,4 : L I NE < 117,85 )-( 106,100) .4 
120 LINE<109,92)-(104,99),4:LINE<111,93)-(105,102),4 
130 LINE(116,85)-(145,100),1:LINE(117,85)-(146,100),1 
140 LINE( 123,85)-( 128,88) ,3,BF 
150 P= I NT ( RND ( 1 ) *4 ) + 1 
160 IFP=2THEN150 

170 L0CATE2, 12: COLOR P SPRINT "HIT ANY KEY - 

180 LOCATE 7, 8: COLOR 2 SPRINT 

190 LOCATE 7, 8: COLOR 1 SPRINT '—///' 

200 LOCATE1 1,7s COLOR 1 SPRINT \ . - 

210 FORI=0TO100 sNEXTI 

220 LOCATE 7,8s COLOR 2 SPRINT '—/•//' 

230 LOCATE1 1,7: COLOR 2:PRINT 

240 LOCATE 7, 8 s COLOR Is PR I NT 

250 LOCATE2, 12: COLOR 2 SPRINT 'HIT ANY KEY - 
260 L I NE ( 123 , 85 ) - ( 128 , 88 ) , 4 , BF 

270 LINE(116,85)-(145,100),4:LINE(117,85)-(146,100),4 
280 GOTO 80 
290 GOSUB800 

300 LINE( 125,53)-( 129 ,59 ) ,3 ,BF:LINE( 125,48 )-( 129, 51 ) , 1 ,BF 
310 LINE(112,49)-(135,49),1:LINE(112,49)-(115,47),1 
320 GOSUB510 

330 LINE(108,69)-(112,74),1,BF:LINE(113,70)-(118,74),3,BF 

340 S=INT( RND( 1 )*20 )+50 S S=S+KZ S GOTO 360 

350 S=INT<RND<1)*20)+160:S=S+KZ 

360 L0CATE12, 3s COLOR 2sPRINT MO:MO=MO-l 

370 LOCATE12, 3s COLOR 1 SPRINT MO 

380 PLAY * s9m20000 1 64o7crcrcrcrc " 

390 FORT =0TO51STEP17 

400 LINE( S , 105+T )-(S,120+T),lsLINE(S, 120+T )-( S-2, 117+T ) , 1 
410 LINE( 15+G , 171 )-( 36+G ,174),2,BF:LINE(40+G,171 )-(43+G,174) ,4,BF 
420 LINE(25+G,171 )-( 28+G , 174 ) , 4 , BF s LINE( 25+G , 171 )-( 43+G , 174 ) , 2 ,BF 
430 LINE(33+G, 171 )-( 36+G, 174) , 4 , BF sLINE( 15+G , 171 )-( 18+G , 174 ) , 4 , BF 
440 L INE( S, 105+T )-(S, 120+T), 2 :LINE(S, 120+T )-( S-2, 117+T) ,2 
450 NEXTT 

460 IFS>120THEN760 
470 GOSUB1140 

480 LINE(108,69)-(113,74),2,BF:LINE(113,69)-(118,74),2,BF 
490 IFMO=0THEN1070 
500 GOSUB1050 

510 LINE( 125,53)-( 130 ,59 ) ,2, BF :LINE( 125, 48 )-( 130 ,51 ) ,2,BF 
520 LINE(112,49)-(138,49). ,2sLINE(112,49)-(115,47),2 
530 LINE(138,49)-(135,47) ,2 
540 RETURN 

550 L INE( 125 , 53 )-( 130 , 59 ) , 3, BF s LINE( 125 , 48 )-( 130 , 51 ) , 1 , BF 
560 LINE( 115 , 49 )-( 138 , 49 ) , 1 : LINE( 138 , 49 )-( 135 , 47 ) , 1 
570 GOSUB510 

580 LINE( 135 , 70 )-< 142 , 74 ) , 3 , BF s LINE( 142 ,69 )-( 146 , 74 ) , 1 , BF 
590 GOTO 350 

600 PLAY " s9m5000o71 64ccc " 

610 R=INT (RND( 1 )*11 ) 

620 L0CATE3+R, 14s COLOR 1 SPRINT' »* SL0CATE3+R, 14sC0L0R lsPRINT -0- 
630 L0CATE3+R, 13s COLOR 1 SPRINT - . ’ 

640 LINE(108,104)-(120,106) ,3,BF:LINE( 105, 106)-( 121 , 108) ,3,BF 
650 LINE(123,105)-(125,109),3,BFsLINE(125,105)-(125,108),l 
660 LINE(106,110)-(108,112),4,BF:LINE(122,110)-(124,112),4,BF 
670 B=STICK(0 ) : IFB=5THENGOSUB1500 SGOTO690 
680 MK=MK+1 

690 LINE(105,103)-(125,112),2,BF 

700 IFMK=1THENLINE( 102, 102 )-( 120 , 100 ) , 1 ,BF 

710 IFMK=2THENLINE(102,102)-( 120 , 100 ) , 3 , BF 

720 IFMK=3THENLINE( 102, 102 )-( 120 , 100 ) , 2 , BF : C=1 : GOSUB1560 s GOTO1070 
730 L0CATE3+R, 14: COLOR 2:PRINT - „ " :L0CATE3+R, 14:C0L0R 2:PRINT - ° - 



740 L0CATE3+R, 13: COLOR 2: PRINT' o' 

750 RETURN 
760 GOSUB1140 

770 LINE< 135, 69 >-(143,74) ,2,BF:LINEC 143,69)-C 148,74) ,2,BF 
780 IFMO=0THEN1070 
790 GOSUB1050 

800 LINEC205,55)-C245,65) ,2,BF 
810 KZ=1NT ( RND( 1 )*3 ) 

820 I FKZ=0THENL I NE ( 220 , 65 )- ( 205 , 65 ) , 1 : L I NE- ( 210 , 60 ) , 1 : KZ=0 
830 I FKZ=1THENL I NE ( 225 , 55 )-( 225 , 65 ) , 1 : KZ=10 
840 I FKZ=2THENL I NE ( 230 , 65 ) - ( 245 , 65 ) , 1 : L I NE- ( 240 , 60 ) , 1 : KZ=20 
850 Z=INT <RND( 1 )*4)-3 

860 L0CATE3+Z, 9:C0L0R 1 SPRINT 

870 GOSUB900 

880 L0CATE3+Z , 9:C0L0R 2:PRINT 

890 GOSUB800 

900 J=INT( RND( 1 )*5 ) 

910 IFJ=3THENGOSUB600 

920 PLAY " s9m2000o6v6e64r64d64e64 " 

930 H=INT (RND( 1 )*5)+l 
940 IFH=2THEN930 
950 G=INTCRND(1)*180) 

960 L I NE ( 25+G , 165 ) - ( 37+G , 167 ) , H , BF : L I NE ( 22+G , 167 ) - ( 36+G , 169 ) , H , BF 
970 LINEC 38+G , 165 )-( 42+G , 169 ) , 4 , BF : LINE( 41+G , 166)-( 42+G , 168) , 1 , BF 
980 LINE( 40+G , 171 )-< 43+G , 174 ) , 4 , BF :L INE( 25+G , 171 )-(28+G, 174 ) , 4 , BF 
990 FORI=0TO30 : NEXT I 
1000 L I NE ( 25+G , 171 )-( 43+G , 174 ) , 2 , BF 

1010 LINEC 33+G ,171 )-( 36+G , 174 ) , 4 , BF : LINE( 15+G , 171 )-( 18+G , 174 ) , 4 , BF 

1020 FORI=0TO30:NEXTI 

1030 B=STICK(0 ) : IFB=7THEN300 

1040 IFB=3THEN550 

1050 L I NE ( 15+G , 165 ) - ( 45+G , 175 ) , 2 , BF 
1060 RETURN 

1070 PLAY ' s8m5000o5c8g8e8c4c4c4 ’ 

1080 L0CATE3.il: COLOR 1:PRINT ’GAME OVER' 

1090 L0CATE2, 12: COLOR 1:PRINT '79-F C y/n O' 

1100 D$=INKEY$ 

1110 IFD$= ' y ' THEN1650 
1120 IFD$= ’ n ' THEN1460 
1130 GOTO 1100 
1140 0=S-2:L=166 
1150 C=POINT ( 0 , L ) 

1160 IFC=1THEN1200 
1170 IFC=3THEN1210 
1180 IFC=4THEN1220 
1190 IFC=2THEN1350 
1200 SC=SC+10 : GOSUB1320 
1210 SC=SC+10 : GOSUB1320 

1220 LINEC 190 , 7 )-( 245 , 22 ) , 2 ,BF : LINEC 0-30 , L-5 )-( 0+25 , L+10 ) ,2 ,BF 
1230 LINEC 0+3 , L-3 )-C 0+6 , L-6 ) , 4 ,BF : LINEC 0-6 ,L+6 )-( 0+12 , L+4 ) , 4, BF 
1240 LINEC0-6.L+1 )-C0+12,L-l ) ,4,BF:LINEC0-3,L+7)-C0+9,L-3) ,H,BF 
1250 PLAY ' s9m6000o41 8abccc2 ' 

1260 SC=SC+10 

1270 LOCATE 11,1: COLOR 1:PRINT SC 

1280 LOCATE 12, 3: COLOR 2:PRINTM0:M0=M0+1 

1290 L0CATE12 , 3 : COLOR 1:PRINTM0 

1300 LINEC 0-12, L-15 )-(0+12, L+10) ,2, BF 

1310 FORI=0TO200 : NEXT I 

1320 IFSC=100THENGOSUB1360 

1330 IFSC=200THENGOSUB1390 

1340 RETURN 

1350 PLAY 's9m5000o61 16ceg8' : RETURN 

1360 PLAY " s9m20000 1 4o4cdcdegegegg2 " IJ 





0 CA=4 : CB=1 : GOSUB1420 

0 L0CATE1 , 1 ; C0L0R3 : PR I NT * GOOD ' * : RETURN 

0 PLAY s9m20000 1 8o5egagegagggaeeeggaf ggaf egagggaeeeee ' 

0 CA=1 :CB=3:GOSUB1420 
0 LOCATE 1 , 1 :COLORl : PRINT ‘ 9 ‘ s RETURN 
0 FORU=0TO77 : L I NE ( 5 , 80 ) - ( 5 , 80-U ) , CA : NEXTU 
0 LINE<5,5)-( 100,25) ,CA,B:L INEC 6,6 )-( 99,24 ) ,CB,BF 
0 FORR=0TO20STEP4 s L I NE ( 100 , 5+R )-( 105 , 5+R ) , CA : NEXTR 
0 RETURN 
0 CLS 

0 L0CATE6 , 6 : COLOR1 : PR I NT " END " ; L0CATE4 , 8 : COLOR1 : PR I NT ' T’VJDU ?>’ 

0 GOSUB1390 

0 FORI =0TO500 : NEXT I : END 

0 LINE( 122,86)-( 126, 95 ) , 3,BF:LINE( 122,97)-( 126, 101 ) , 1 ,BF 
0 LINE(124,103)-(124,112),1 :LINE-( 122, 110 ) , 1 
0 PLAY ' s9m200vl5c32 * : S0UND7 , 30 
0 FORI=0TO100:NEXTI 
0 LINE(122,86)-(126,101),4,BF 
0 RETURN 
0 REM 

0 PLAY " s9m20000o3c8r 16c8rl6c8 " 

0 S0UND7,55 

0 FORX=0TO10STEP4:LINE( 102+X.40 )-( 102+X.85) , IsNEXTX 
0 L0CATE6 , 3 : COLOR C:PRINT - „„ ’ :L0CATE5, 3s COLOR C:PRINT• ,, ' , « ,, ’ 

0 L0CATE6 , 2 : COLOR C : PRINT * „ . ' :LINE( 121 , 70 )-( 124 , 73 ) , 3 , BF 
0 FORI=0TO300 :NEXTI 
0 S0UND7 , 56 

0 RETURN 

3 RESTORE1980 :F0RI = 1T07:READA ,B,C,D:LINE( A,B)-(C,D) ,2,BF sNEXT 
3 C-2 • GOSUB1600 

3 LINE(102,102)-(120,100),4,BF:LINE(102,102)-(120,102).l 
3 LINE(121,71)-(124,73),1,BF 
3 GOTO 50 

3 SCREEN3 ,2,1s C0L0R2 ,2,2: CLS 
3 X=20:Y=0:A=l/32 
3 FORI=1TO200 :X=X-A*Y: Y=A*X+Y 
3 PSET ( X+55 , 37-Y/3 ) , 1 : PSET ( X+65 , 47-Y/3 ) , 1 : NEXT 
3 RESTORE1830 :FORI=1TO10: RE ADA ,B,C,D,E:LINE(A,B)-(C,D),E,BF: NEXT 
3 RESTORE 1 870 : FOR I = 1 T 025 j READA ,B,C,D,E:LINE(A,B)-(C,D),E:NEXT 
3 REST ORE1960 : FOR I =1T06 : READA , B , C , 0 : PA I NT ( A , B ) , C , D : NEXT 
3 FORH=0TO200STEP10 : LI NE( 20+H , 180 )- ( 23+H , 182 ) , 4 , BF : NEXTH 
3 FORH=0TO210STEP12:LINE(21+H, 179 )-( 21+H, 182) ,4:NEXTH 

3 LOCATE0 , 8 : COLOR IsPRINT AAA " 

3 LI NEC 120 ,5 )-< 250 ,25) , 1 ,B :LINE( 200 , 30 )-( 250 ,50 ) , 1 ,B 
3 L0CATE9 , 7 : COLOR 3:PRINT ‘o' 

3 GOTO50 

3 DATA120, 60, 133, 63, 3, 120, 64, 133, 73, 1,118, 67, 126, 69,1 
3 DATA122 ,65,123,67,4,130,64,133,68,4, 124 ,74,130,77,1 
3 DATA121 ,77,133,85,3,115,83,118,85,1,0,182, 256 ,192,3 
> DATA155, 62, 165,77,1 

1 DATA0 , 80 , 0 , 100 , 4 , 0 , 80 , 20 , 80 , 4 , 20 , 80 , 40 , 100 , 4 

I DATA40 , 100 , 0 , 1 00 , 4 , 252 , 75 , 252 , 1 00 , 4 , 252 , 75 , 230 , 75 , 4 

I DATA230, 75, 225, 85, 4, 225, 85, 205, 100, 4, 205, 100, 252, 100, 4 
I DAT A0 , 140 , 0 , 183 , 3 , 0 , 140 , 20 , 150 , 3 , 20 , 150 , 13 , 162 , 3 
I DATA13, 162, 15, 183, 3, 252, 182, 252, 130, 3, 252, 130, 225, 135, 3 
l DAT A225 , 135 , 237 ,183,3,90,85,160,85,1,90,85,100,102,1 
I OATA160 ,85 ,160,90,1, 160 , 90 , 153 ,102,1, 100 , 102, 153,102, 1 
i DAT A155 , 62 , 155 , 85 , 4 , 1 15 , 63 , 1 33 , 63 , 3 , 120 , 70 , 124 , 70 , 3 
l DAT A60 ,40,70,45,2 

i DATA250 ,80,4,4, 250 , 180 ,3,3,110,90,4,1,10,90,4,4,10,180,3,3 
i DATA50 ,50,1,1 

i DATA5 ,5,105,25,5,5,5,79,25,120, 220 , 178 , 200 , 55 , 250 , 70 
DATA102 ,40,112,84, 195 . 10 , 240 , 23 , 205 , 32 , 240 , 45 
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230 GOSUB1300 

258 NN=N-3 : IF NN<0 THEN NN=42 

260 IF A1S(N)=A1S(NN> OR A2S(N)=A2S(NN)THEN GOTO 500 
270 X=X+3sIFX>30THENX=lsY=Y+3 
280 IF A2S(N )= ’ e - THEN N=0:GOTO 400 
290 RETURN 

300 N=0sGOSUB200 :N=1 
310 IF U=5 THEN 322 
312 P=STRIG( U) : K=RND( 1 ) 

320 IF P=0GOTO 310 
322 PO=PO+l 

330 GOSUB50 : GOSUB230 : V ( AS ) =N s I F PO>40 GOTO 400 
340 N=N+1 :GOTO 310 

400 FOR I = 1 T04 : FOR J=1 TO10 : A ( I , J ) =0 : NEXT s NEXT 
410 AS= " - sFORI= 9 TO 13 

420 LOCATE0, 1 SPRINT AS s: NEXT 
430 L0CATE2 , 10 : PRI NT !’ 

490 GOTO 3000 
500 PLAY "o6g64e4" 

510 AlS(N-2)=AlS<N)sA2S(N-2)=A2S(N)sN=N-2 
530 C=X-3:D=Y:F0R G=1 TO 2 
540 IFC<0 THENC=30+CsD=D-3 
550 LOCATE C,D SPRINT -r ’ - 
560 LOCATE C.D+lsPRINT ■<-»■ 

570 C=C-3sNEXT 
572 FORI=0TO572 sNEXT 
576 C=C+7 

578 IF 030 THEN C=2sD=D+3 

580 LINE((C)*7.9,D*12)-( (C+l )*7.9, (D+l )*12),2,BF 
582 C=C+3s IF 030 THEN C=2sD=D+3 
590 LINE((C)*7.9,D#12)-((C+1)*7.9,(D+1)*12),2,BF A*S*li-r^Tzi>ea-:7 L t 
600 X=X-6 s IF X<1 THEN X=30+XsY=Y-3 
620 GOSUB 1300 s GOTO 258 

1300 LOCATE X.YsIF A2S(N)=' 10'THEN KS=A2S(N) sGOTO 1320 
1310 K$= ' - +A2$(N) 

1320 LOCATE X.YsPRINT A1S(N> ; " ' s LOCATE X.Y+lsPRINT KS 
1390 RETURN 

2000 AN$= ' ft~>) r>VsNA D">]’ 

2001 PLAY " s8m65000tl20 ’ , ‘ s8m65000tl20 " 

2002 CLS 8 L0CATE2 , 3 s I NPUT ‘7t9 J 771 1 jANS 

2003 IF LEN( ANS ) >18 GOTO 2000 

2004 L0CATE2,5s INPUT'S./;-” 37 771 ';NAS 

2006 IF LEN( NAS ) >18 THEN PRINT ' 'sGOTO 2004 

2010 NES='3" sL0CATE2,7s INPUT'77? J 97L? •••';NES 

2020 NTS= ' 3" SL0CATE2 , 9 s INPUT ' S75-” 3 J 97U? ■•'sNTS 

2030 K=ASC ( ANS ) +ASC ( NAS ) +ASC ( NES ) +ASC < NTS ) s FOR I =0TOK+RND ( 1 ) *K s NEXT 

2040 CLSsLS='***** ' +NAS+ ' •***•' :LS=INT(LEN(LS)/2) 

2042 PS= > # t) | " +ANS+ ' ♦++++' :LP=INT(LEN(PS)/2) 

2044 FORI=9TO14sLOCATE0, 1 SPRINT ' 

2046 NEXT 

2050 L0CATE2, 10 SPRINT ' JOY STICK 5 V1MTXH (Y/N)'sU=0 

2060 IS=INKEYSs IFIS=‘ "THEN2060 

2070 IFIS=VTHEN U=1 

2072 IFASC< IS )=13 THEN U=5sG0T0 2110 

2080 L0CATE2, 12 SPRINT S$(U);' Tm' 

2090 L0CATE2.13SPRINT 1 7?75-< »-r »” ff* 77. ' 

2100 IF STRIG(U)=0 GOTO 2100 
2110 LOCATE 16-LS.0 SPRINT LS 

2120 LOCATE 16-LP, ISsPRINT PS; sCONSOLEl , 14 , 0 , 0 sCLS 
2190 GOTO 300 

3000 IF V( 1 ) >20 THEN GOSUB 5000SGOTO 4000 

3020 IF V(l)>10 THEN AS^HO t-fJO 96)1,71 A lit') Tjtsfi" ' 

3022 IF V(l)>10 THEN AS=AS+' >395-“ 77. ' s GOSUB5100 sGOTO 4000 

3024 IF V(l)=l THEN GOSUB 4060 sGOTO 4000 

3040 NEXT =1T0V<1 ) * IF A2 * ( 1 )= ' A ’ THEN AS='9</\“*a“y>9“072. " sGOTO 4000 
3060 GOSUB 4100 

4000 L0CATE2, 10 SPRINT ';f:j?I5,72 !* 



4010 IF LEFTSC AS.'l ) = - 7 - AND Al$( I ) = '*‘THENAS=’7T97 yiKZ '+A$sGOSUB5200 
4012 IF LEFTS ( AS . 1 ) = "V ANDA1S( I )= ’ ♦’ THEN AS='T DZilJ ‘+ASsGOSUB5200 
4014 IF LEFTS(AS,1) = ' 7 ‘ AND A1S<I) = >' THEN GOSUB 4050 
4016 IF LEFT$( AS , 1 ) = ‘ 9" AND A1S(I)='*' THEN GOSUB 4110 
4019 L0CATE2.il SPRINT ASsPLAY P1S.P2S 
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4020 REM FORI=0TO2000:NEXT 
4030 CONSOLE© , 1 6 , 0 , 0 : CLS : END 

4050 A$=”7 T9Z :j9-f'9 t’J? -flirt W *1)Z <*$.94 

4051 Pl*= ' s8m65000T120o4 1 8c4a4 . aag4f d2 . I 4ag . a 8b-f e2 . ca . a8a8gf 8d2 . ’ 

4052 P1*=P1$+ ' ag . a8b-o5dc2 .cf . f 8f 8ef 8d2 . f 8f 8e . e8e8dc8e2 . " 

4053 P1$=P1*+ - cd . d8o4b-o5dc . o4 1 8b-a2r4 1 4o4g2o5dc2o4agf 1 - 

4054 P2$= ' s8m65000T120o31 8c4a4 . aag4f d2 . 1 4a& . a8b-f e2 . ca . a8a8gf 8d2 . * 

4055 P2$=P2$+ ' ag . a8b-o4dc2 . cf . f 8f 8ef 8d2 . f 8f 8e . e8e8dc8e2 . ' 

4056 P2*=P2$+ ' cd . d8o3b-o4dc . o31 8b-a2r4 1 4o3g2o4dc2o3agf 1 * 

4059 PLAY P1$,P2$: RETURN 

4060 A $=‘rs9'4l\ 7U7t>'!*'!iK 5-79tC t'JIJo' 

4862 PLAY •=,8in65000T120 * , * SSM65060T120 ' 

4070 Pl$= ‘ s8m65000o51 4go6c2o5gb2ga2ee . 1 8gaga4 . gaga4 . gaga2o4b4b2* 

4071 P1$=P1$+ ' 1 4go5c2o4ab2ga2o3bb. 1 8o4gaga4 . gaga4 . gaga2e4e21 4g' 

4072 P1$=P1$+ ' o5c2o4gb2ga2ee . 1 8gaga4 . gagb-4 . ag+ao5e2d4d2o4a4o5d2' 

4073 P1*=P1S+ ’ 1 4co4b. t 8ag+ao5c21 4o4eg . 1 8f +gg+l 2af4bg4o5c ,c " 

4080 P2*= ' s8m65000o4 1 4go5c2o4gb2ga2ee . 1 8gaga4 . gaga4 . gaga2o3b4b2 * 

4081 P2*=P2*+ ‘ 1 4go6c2o5ab2ga2o4bb . 1 8o5gaga4 . gaga4 . gaga2e4e21 4g ' 

4082 P2$=P2$+ " o6c2o5gb2ga2ee . 1 8gaga4 . gagb-4 . ag+ao6e2d4d2o5a4o6d2 ' 

4083 P2$=P2*+* 1 4co6b . 1 8ag+ao6c21 4o5eg. 1 8f +gg+l 2af4bg4o6c .c ' 

4090 PLAY P1$,P2$: RETURN 

4100 A$= ' 7 KA . 7t9J rila 7?“2. *9235- 3Z 79595779" f* !!’ 

4110 Pl$= ' t90s8m25000o4 1 8o5co4eeo5cc2co4eeo5cco4ef edddbb2 * 

4120 P1$=P1$+ " o41 8bddbbdedcccaa2r8ccaacdco3bbbo4g+g+2r41 4abfel ‘ 

4130 P2$= ' t90s8m25000o5 1 8o6co5eeo6cc2co5eeo6cco5ef edddbb2 ' 

4140 P2$=P2$+ " o51 8bddbbdedcccaa2r8ccaacdco4bbbo5g+g+2r41 4abfel ' 

4150 PLAY P1$,P2* 

4160 RETURN 

5000 A*=* 7*9X7*915” .7“f>?“7. 

5002 PLAY ’ s8m22000t 80 ’ , " s8m22000t 80 ‘ 

5010 Pl$= " o4 1 16ee8o5ee2 . 1 8o4eao5ec2 . r41 16o4bb8bbb8bbb8ag8d8e2 . r8 * 

5020 P1$=P1$+ "o41 16fed2 .r4eeeeaaaao51 8cco4bab2r81 16eeo5co4ba4" 

5030 P1S=P1$+ " eeo5co4ba41 8ao5ced4 . f f 4r4e4 . edo4bbo5co4ba2 ' 

5040 P2$= ' o3 1 16ee8o4ee2 . 1 8o3eao4ec2 . r41 16o3bb8bbb8bbb8ag8d8e2 . r 8 ’ 

5050 P2$=P2$+ ' o31 16fed2 . r4eeeeaaaao4 1 8cco3bab2r81 16eeo4co3ba4 ’ 

5060 P2$=P2$+ ' eeo4co3ba4 1 8ao4ced4 . f f 4r4e4 . edo3bbo4co3ba2 ‘ 

5070 PLAY P1*,P2$: RETURN 

5100 Pl$= ' t90o51 8eao6co5bao6co5abafge2r8eao6co5bao6co5abaed+d2r8‘ 

5110 P1$=P1$+ ’dfg+b2r8dfg+a2r8o4ao5cgfegfeddo4g+o5al ‘ 

5120 P2$='t90o31 8eao4co3bao4co3abafge2r8eao4co3bao4co3abaed+d2r8' 

5130 P2$=P2*+ ' df g+b2r8df g+a2r8o2ao3cgf egf eddo2g+o3al ’ 

5140 PLAY ' s8m65000 ' , " a8m65000 " : PLAY P1$,P2* 

5190 RETURN 

5200 Pl$= " s8m25000tl 10o51 8aggeeddcd4ccc2aggeedegg2 . r8caggeeddc ' 

5210 Pl$=Pl$+'d4ccc4r8o4ao5cdcdo4a4bo5ccl ‘ 

5220 P2$= ' s8m25000tl 10o4 1 8aggeeddcd4ccc2aggeedegg2 . r8caggeeddc " 

5230 P2$=P2*+ ' d4ccc4r8o3ao4cdcdo4a4bo4cc 1 * 

5240 P3$= ' a4a4ag+ao6co5b4ggg4r8ef 4f 4f ef ag4eee4r8o4go5c4co4bo5co4b ‘ 

5250 P3$=P3*+ ' o5ced4co4aaga4o5cl ‘ 

5260 P4$= ' a4a4ag+ao5co4b4ggg4r8ef 4f 4f ef ag4eee4r8o4go4c4co3bo4co3b " 

5270 P4*=P4$+'o4ced4co3aaga4o4cl ' 

5280 PLAY P1$,P2$:PLAY P3$,P4$: RETURN 
10000 LOCATE 3,3 

10010 PRINT yi)v9 149774 ?“7„ ':PRINT 

10020 PRINT ' tliJ 2147 A Tj 9" D-b" J 295.“ 77A U97D" 1t5'9'b‘; 

10022 PRINT ’.7 49' J 214 J " ; 

10030 PRINT ‘ »-h”9h99lk3M)"f”+72. 

10040 PRINT ' 94TZJl")91i-b"D" . 1 . i' ! 

10042 PRINT ' 

10050 PRINT ‘ I* I I* I I KIM Q I “ s 

10052 PRINT V 27-f 9"9Z 7797, ' 1 1 5 

10060 PRINT - 

10070 PRINT ‘7 9')J 749"l\.94l7f"7. 

10072 PRINT * < anykey in start!'; 

10080 LOCATE 8,1 : COLOR 3:PRINT ‘ *** Love *** ' ; :COLOR 6 
10090 GOSUB 20000: I*=INKEY*: IF I$="THEN 10090 
10100 RETURN 

20000 PLAY 'slim 6500t80 ‘ , ' sllm6500t80 ‘ , ' sllm6500t80 “ 

20010 Pl$=" 1 36o4cgago5co4gago5do4gago5eo4gago5cecego4gabo5co4ago5c64r64 
20012 P2$= ‘ 1 36o3cgago4co3gago4do3gago4eo3gago4cecego3gabo4co3ago4c64r64 
20014 P3$= ‘ 1 36o5cgago6co5gago6do5gago6eo5gago6cecego5gabo6co5ago6c64r64 

20018 PLAY P1$,P2*,P3* 

20019 RETURN 
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10 CONSOLE0, 16, 0,0: COLOR 2, 1 ,2sCLSsDIM K(10) 

19 SCREEN 3, 2, 2: COLOR 1,2,2:CLS 

20 CLSsLINE (72,116)-(142,148),1,BF 
23 RK=RND( 1 )*9-3 

30 LINE< 0 , 142+RK )-( 250 , 142 ) , 1 

32 IF RK=0 THEN NG=NG+1 

40 COLOR 1 : L0CATE5 , 12 s PR I NT ’O O’ 

50 COLOR 2:L0CATE4, 10 : PR I NT 1 8BBBB ‘ : L0CATE4 , 11 SPRINT •==Bus' 
60 L0CATE4, 12: PRINT ’ I * : L0CATE4 , 10 : PRINT T 
70 K=14 : K$=CHR$( I NT ( RND ( 1 ) *9 ) +64 ) : K$ ( BS ) =K$ 

80 FORJ=0TO2:FORI=1TO K: LOCATE I , K:COLOR 1:PRINTK$ 

90 LOCATE 1-1, K : COLOR 2:PRINT K$ :NEXT:L0CATE14, K SPRINT K$ 

91 COLOR 1SL0CATE5, 12 SPRINT 

92 COLOR 2:L0CATE5, 12:PRINT *_ _\*NEXT 
100 A=INT(RND< 1 )# 5) 
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110 IF A>3 THEN COLOR 1:CLS:L0CATE3, 3 SPRINT "F > * A" :R=R+1 jGOTO 134 
112 IF INT(RND(1)*2) GOTO 130 

120 GOSUB140 : IF F-KA<1 GOTO 80 

121 GOSUB200 s L0CATE2 , 1 s PR I NT KA;‘z> *972-9. ' $F=F-KAsK(BS)=KA*(-l ) 

122 GOTO 132 

130 GOSUB140 : IF F+KA>20 GOTO 80 

131 GOSUB200:LOCATE2,1 SPRINT KA;'r> >972-9. ’ sF=F+KA:K(BS)=KA 

132 FORJ=0TO500: NEXT SGOSUB140: GOTO 20 
134 FORJ=0TO500: NEXT sCLS: GOTO 20 

140 KA=INT (RND( 1 )*5 )+3sLINE( 0 , 0 )-( 250 , 30 ) ,2,BF:C0L0R 1 
150 RETURN 

200 LINE (90, 120) -(100 ,146) , 2 , BF :BS=BS+1 : IFBS$9 THEN300 
210 RETURN 

300 L0CATE2, 14 SPRINT ‘yVi'y? 2-7X. * s FORI =0TO2000 s NEXT 

302 SCREEN 1 , 1 , 1 sCLSsL0CATE2, 8s INPUT '47 'jJ tH* >-3f <72* "jM 

310 IF F=M THEN PRINT SPRINT " 7 "J99 — ’ sAD=AD+1 sGOTO 330 

320 IF FOM THEN PRINT SPRINT 1 AX*L 

322 PRINT ■ t4D4 A • - - ‘ ;F{ “ 7*2-9." 

330 FORI=0TO1000 sNEXT 

331 SCREEN 1 , 1 , 1 sCLSsL0CATE2, 8s INPUT Vf A" >**0* A Vj Z> f"2-9 ";M 

332 N=0sF=0sFORI=0TO9sN=N+K( I ) s IF F<N THEN F=N 
334 NEXT 

340 IF F=M THEN PRINT SPRINT " 7 -399 — " sAD=AD+l sGOTO 360 

350 IF FOM THEN PRINT SPRINT - AX"U 
352 PRINT • t4»4 A • - - ’ ; F ; ‘ 7*2-9. " 

360 FORI=0TO1000 sNEXT 

361 SCREEN 1 , 1 , 1 sCLSsL0CATE2,8s INPUT * h>*A A 49V 7972 -91) ";M 

370 IF R=M THEN PRINT SPRINT * 9' < t4D4 ' s AD=AD+1 S GOTO 390 

380 IF ROM THEN PRINT SPRINT - AX"U 

382 PRINT ' t4»4 A • - • ' ; R; * 2 7"2 -9." 

390 FORI=0TO1000 sNEXT 

400 SCREEN 1,1,1s CLS s L0CATE2 , 5 s PR I NT * A2--37YA Ff i9t“ * 

402 R$=CHR$(INT(RND(l)*9)+65) 

410 LOCATE1 ,6sPRINT R$;"h 49 72-*A 7"7772-9S.(Y/N) " ; : INPUT M$ 

430 F0RI=lT09s IF R$=CHR$( VAL( K$( I ) ) )THEN A$="y* 

432 NEXT 

440 IF M$=A$ GOTO 450 
442 GOTO 460 

450 PRINT SPRINT " 9" 4 *41)4’ sAD=AD+lsGOTO 470 

460 PRINT SPRINT " AX"L 

470 FORI =0TO1000 sNEXT 

472 M=INT( RND( 1 )*10 )+l 

480 SCREEN 1 , 1 , 1 sCLSsL0CATE2,8 

490 PRINT " Kfi97* ’ }M{ ’ *993 M>" 797 2-9fl. (Y/N)"} 

492 INPUT M$ s M=M#( -1 ) 

494 IFM$="y "THEN 500 

496 IFM$="n"THEN 530 

500 F0RI = lT09s IFM=K( I )THEN520 

510 NEXTsPRINT * AX"L —"sGOTO 550 

520 PRINT " 7-399 — " s AD=AD+1 8 GOTO 550 

530 F0RI=lT09s IFM=K( I )THEN540 

532 NEXTsPRINT " 7-399 —" sAD=AD+l sGOTO 550 

540 PRINT " AX" 1/ ~* 

550 FORI=0TO1000 sNEXT 

560 SCREEN 1 , 1 , 1 S CLS SL0CATE2, 5 SPRINT " AS'ufYA Sfi97" \49j1- 5? A" 

570 L0CATE2,6s INPUT 't's1>4 7972-91). " ;M 
580 IF M=NG THEN 600 

590 PRINT " AX" U — “;NG;"JY 7"2-9." sGOTO 610 
600 PRINT " 7-399 — *sAD=AD+l 

610 FORI=0TO2000sNEXT sCLS 
620 K=AD/6*100 

630 LOCATES, 5sPRINT 't4D4 <JV " ; INT(K) ; "X" 

650 END 
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UXh-1 Doremi 


1 CLS 

5 GOSUB 11000 
10 CONSOLE 0,15,1,0 
20 SCREEN 3,2,2 
25 COLOR 2,3,1 
40 CLEAR 3000 
50 CONSOLE 0,16,1,0 

100 DIM M$( 200 ) ,0$( 78) ,P$( 500 ) ,L$( 9 ) 

120 FOR 1=0 TO 78 
140 READ 0$(I) 

160 NEXT I 
200 FOR 1=0 TO 9 
250 READ L$( I ) 

260 NEXT I 
265 GOTO 375 

270 CLS:LOCATE 0 ,0 :PRINT 'ima? RETURN ?*7oY=r‘ 

300 B$=“ ‘ : 1=0 :PLAY , 18o4c’ 

368 FOR J=0 TO 4 

370 LINE (5,42+24*J)-(250 , 42+24* J) 

372 NEXT J: RETURN 

375 COLOR 2,3,1: GOSUB 270 

380 FOR 1=0 TO 200 

400 A$=INKEY$ : IF A$=" THEN 400 

420 IF I < 0 THEN 1=0 

430 COLOR 3,3,1 :M=1 : IF 1=0 THEN M=0 

450 IF ASC(A$)=29 THEN I=I-M:PRINT CHR$(29) ; :GOSUB 820:GOTO 400 
600 IF ASC(A$)=13 THEN E=I:GOTO 900 
700 M=ASC(A$)-44 

750 IF M<0 OR M>78 THEN GOTO 400 
800 M$( I )=0$(M) 

810 COLOR 2,3,1: GOTO 850 
820 PLAY M$( I ) 

825 0=VAL<MID$(M$( I ) ,2, 1 ) ) :H=ASC( MID$( M$( I ) ,3,1) ) 

830 L=112-H-( 0-4 )*7 : IF H=97 OR H=98 THEN L=L-7 
835 IF L>15 OR L<0 THEN 0=4: GOTO 830 

838 II=I-INT( I/16)*16: IF 11=0 AND I>15 THEN CLS:GOSUB 368 
840 LOCATE II,L:PRINT "o" ; : RETURN 
850 GOSUB 820 
860 NEXT I 

900 CLS: COLOR 2,3,1:L0CATE 1,14:PRINT ‘i^Vd 

910 LOCATE 0,0: PRINT ‘ 1-5 ; 32-2M>7° *: PRINT ‘6-0 ; 32-214 1 07 ' 

930 COLOR 2,3,1: GOSUB 368 
950 FOR 1=0 TO E-l 

1000 B$=INKEY$: IF B$= THEN GOTO 1000 

1030 IFASC( B$ )=29THENI=I-1 :PRINTCHR$(29) ; " . ‘ ;CHR$(29) ; :GOTO1000 
1050 IF ASC(B$)=28 THEN GOTO 1140 

1060 IF THEN I NPUT " r ? 1 ?o??= " ; P$ ( I ) : SCREEN 3,2,2:G0T0 1140 

1100 N=ASC(B$)-48: IF N<0 OR N>9 THEN GOTO 1000 
1115 IF N=0 OR N>5 THEN R$=L$(N) :GOTO 1000 
1120 P$( I )=R$+L$(N)+M$( I ) :R$=" ’ 

1140 PLAY P$( I ) : GOSUB 825 
1200 NEXT I 

1500 INPUT’a or m or c or s‘ }C$ 

1550 SCREEN 3,2,2 


27 



1600 IF C$= ' a ' THEN GOTO 2000 
1700 IF C$= ’ m " THENGOTO 900 
1800 IF C$=‘c ' THENGOTO 265 
1850 IF C$= " s " THEN GOSUB 2310 
1900 GOTO 1500 

2000 REM COLOR 2,3, 1 :CLSj GOSUB 368 
2050 FOR 1=0 TO E-l 
2100 PLAY P$( I )+ "r64 ' 

2150 REM GOSUB 825 
2200 NEXT I 
2300 GOTO 1500 

2310 INPUT "2'i9+=l , A(TY=2,vol ume=3,t35"tf=4,T7^-7“=5,f>il5o=6‘ } I , J$ 
2320 ON I GOSUB 2330,2335,2340,2345,2350,2355 
2325 RETURN 

2330 PLAY ■m*+J$+’o4cde‘ : RETURN 
2335 PLAY ’ s’ + J$+ ’ o4cde ’: RETURN 
2340 PLAY ‘ v ’ + J$+ " o4cde ’ : RETURN 
2345 PLAY ’ 1 ’ + J$+ ‘ o4cde * : RETURN 
2350 PLAY * o ‘ + J$+ ‘ o4cde * : RETURN 
2355 PLAY * t * + J$+ ’ o4cde ‘ : RETURN 

2400 DATA o6c , o4g+ , o6d , o6e , o4f + , o3d+ , o3f , o3f + , o3g+ , o3a+ , o4c 
2500 DATA o4c+ , o4d+ , o4f , o6f , o6d+ , , , , ,o4a, ,,,,,,,,,,,,,,,,, 
2600 DATA ,,,,,,, ,o4b,o5c ,o6f+,o4a+, , 

3000 DATA o4b,o5g,o5e,o5d+,o3g,o5f ,o5f+,o5g+,o4e 

4000 DATA o5a+,o6c ,o6c+,o5b,o5a,o4f ,o4g,o3e 

5000 DATA o3a , o5c+ , o3b , o4d , o5f , o3f 

6000 DATA o5d,o4c,o5c 

9000 DATA r2, 132,116, 18,14, 12 

10000 DATA r32,rl6,r8,r4 

11000 PRINT , 9"J*37’: PRINT ’Y <r> J Th’ 

12000 PRINT " l-¥ V A-3 A A >*><-?" YUtTS- * 

12500 PRINT 

13000 PRINT 'l>V9" : PR I NT ’1,2,3,4,5=32,16,8,4,2 7* T>7° ’ > 
14000 PRINT ’6,7,8,9,0=32,16,8,4,2 7" +i97-m f“manual mode.’ 
14500 PRINT 

15000 PRINT "a or m or c or s or i ?" 

16000 PRINT ’a;>"r7 l>79-’ 

16500 PRINT 

16600 PRINT ’c ;7'a + 37" ; ’ i ; 5*3 “ 

16700 PRINT "s;79>K" I*U-7- • YDTD 

20000 INPUT "ok ( y > ‘ ; A$ ; RETURN 
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440 DATA'fl:*:o77 r +S)S)*ft, 77 ' , '+@DAft>Ha*tz*fcl*A - , * K*~*~ii@@@@l-77" 

450 DATA*Vyyy!J'J'J90?ttffl' , "*t>77777 T )%99m' 999mmm9ittrt')' 

460 DATA"?_777777r777*?' , ' 91ftt9@M®Ji99l\9’ , ' 7fc777@@@@7:fcUtftf" 

* 78 , ■@@??fc7745>77?&e" , ' ’ 

480 S0UND9 , 16 : S0UND3 , 0 : S0UND12 , 10 : S0UND1 1 , 0 s S0UND13 , 12 : S0UND7 , 56 
490 RESTORE540 : AD=&HE009 : FORI=0TO14 : READA$ : L0CATE9 , I : PRINTA$ ; 

500 FORJ=0TO13 : POKEAD+J , &H62 : NEXT J : AD=AD+32 : NEXT I 
510 S0UND1 , 0 : SOUND0 , 0 : S0UND7 , 56 s S0UND8 , 14 
520 FORI=0TO5 

530 FOR J=0TO255STEP8 : SOUND0 , J : NEXT : NEXT : S0UND8 , 0 : S0UND13, 0 : RETURN 
540 DATA;*^4*****7<k=/V , "fi-LiCI I4@@@+@@‘ , f f f @a@-Ha@ " 

550 DATA *GyYCCi:_K@@-f@@" , , Tnf]TKW«mar , " *{ " 

560 DATA " @nf »'3a w@@St>i@ ‘ , "@{Y[:i@DvJ*7-Ha(a - , ' QYYYof BYm (~-Ha@ ‘ 

570 DATA " PYxOfcYCf f f f +@@ " , " @f*77YmhP¥P-Ha@ 1 , "@YYYYy ! " 

580 DATA " @f Yf df " , "EyYY@I_@?*@ Ha@ " , "nhf>7A?jB7A@@@@@" 

590 S0UND6 ,31s S0UND7 , 7 : PLAY * sl2m2000c 1 " , " sl2m2000c 1 " 

600 PSET < 140 , 179 ) , 8 s RESTORE620 : FOR I =0TO20 
610 READA,B:LINE-(A,B) , 8, BF: NEXT: RETURN 

f 2® S*™* 1 ? * 178 • * 1^4 , 124 , 120 , 102 , 168 , 156 , 162, 96 , 132 , 88 , 144 

630 DATA164, 134, 112, 134, 140, 106, 114, 84, 136, 72, 132, 132, 156, 128 
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640 DATA104, 128, 148, 116, 112, 108, 132, 100, 120, 72, 128, 32, 124, 12 
650 LINE(127,0)-(127,178),3: S0UND7 , 7 : A=0 

660 F0RI=178T024STEP-4 :LINE( 127,1 )-(95+RND< 1 >*64 , 1-24 ) , RND( 1 )*8+l 
670 A=A+ 1 s S0UND6 , A s PLAY “ s9m9999c64c64 ' s NEXT s RETURN 
680 FOR I =0TO8STEP4 s X=96 : PLAY * v8 * : S0UND7 , 56 
690 FORJ=&HE20CTO&HE3BCSTEP32 

700 POKE J+ 1,252: POKE J+ 1,207: PLAY * n=x ; 64 * : POKE J+ 1,0: X=X-1 : NEXT J 
710 S0UND6 , 10 : S0UND7 , 7 : PLAY ' s9ml500c8 ‘ 

720 POKE J+ 1 , RND < 1 ) *255 : POKE J+ 1 - 1 , RND < 1 ) *255 : POKE J+ 1 +1 , RND ( 1 ) *255 
730 NEXT I: RETURN 

740 SOUND1 , 0 : SOUND0 , 0 : S0UND8 , 10 : FOR I =3T08 : RESTORE770 : PSET ( 120 , 100 ) , I 

750 FOR J=0TO20 : READA , B : L I NE- ( A , B ) , I : NEXT 

760 FORA=255TO0STEP-10 : SOUND0 , A : NEXT : NEXT : RETURN 

770 DATA116, 100, 116, 92, 128, 92, 128, 112, 112, 112, 104, 104, 104, 88 

780 DAT A1 12, 76, 132,76,148,92,148,112,128.132, 104,_132_,80 « 108 

790 DATA80 ,80,108,52,144,52,172,80,172,124,140,156,88,156 

800 SOUND1 , 0 : SOUND 13 , 12 : SOUND1 1 , 7 : SOUND 12 , 0 : S0UND8 , 16 : A=127 

810 FOR I =0TO30 : COLOR , , 2 : A=A+SGN(RND( 1 )- . 5 ) : SOUND0 , A : COLOR , , 1 : NEXT 

820 S0UND13 , 0 : S0UND7 , 0 : RETURN 

830 IFA=3THENX=192 

840 IFA=-3THENX=0 

850 A$= * t32s9m4000c64c64m50000cl " :S0UND6,23:S0UND7 ,7 :PLAY A$,A*,A$ 

860 FOR I =0TO30 : L I NE ( X+32 , 1 78 ) - ( X+RND ( 1 ) *72 , RND ( 1 ) *150 ) , RND ( 1 ) *9 : NEXT 

870 C0L0R123 : CLS : L I NE ( 0 , 0 ) -( 251 , 191 ) , 3 , B : COLOR0 

880 LOCATES , 2 : PR I NT ';N*(Q>;' Tj J vaO'JW 

890 RESTORE900 : FOR I =4TO10 : READA* : L0CATE4 , I : PR INTA* : NEXT 

900 DATA i ■ i-i,l I I I , I — I — • — • , I I 1 1 

910 DATA I I f-H , I I I 1 , 1 1 1 1 

920 A=1 : F0RY=5T09STEP2 : F0RX=5T09STEP2 : LOCATEX , Y : A*= ' 

930 A$=R I GHT* ( STR* ( G ( A ) ) , 1 ) : PR I NT A* ; CHR* ( 7 ) : A=A+ 1 : NEXT : NEXT 
940 LOCATE 12, 5: PR I NT' O ••• ';N*(l>s' 

950 L0CATE12,7:PRINT' • ••■ " ; N*< 2 ) ; ' V's’ :FORI=0TO1000 :NEXT 
960 A=1 : F0RY=5T09STEP2 : F0RX=5T09STEP2 : LOCATEX ,Y : A*=" ' 

970 IFF(G(A))=1THENA*='0' 

980 IFF(G(A) )=-lTHENA$= 

990 PRINTA* ; CHR*( 7 ) : A=A+1 : NEXT : NEXT 
1000 IFINKEY$< >" "THEN1010 

1010 L0CATE5 , 1 3 : PR I NT ’ t9YfS" VJ17.1) ? (y/n) 

1020 A*= I NKEY* : I FA*< > ' y ' ANDA*< > ' n ' THENCOLORRND( 1 >*4+1 : GOTO1010 
1030 IFA*= " y ' THEN20 

1040 FOR I =1T02 : SCREEN1 ,1,2: COLOR1 ,0,1: CONSOLE0 ,16,1,1: CLS : NEXT 
1050 END 

1060 SCREEN 2,1, 1 :COLOR212,0 ,2:CONSOLE0 , 16,0 ,0 :CLS 
1070 LOCATE 7,15:PRINT'** BLACK MAGIC *♦' ; 

1080 FOR I =0TO13 : PRINTCHR*( 7 > : NEXT : C0L0R3 : LOCATE0 , 0 
1090 LINE(0 ,0 >-(255, 178) ,2,B:PLAY‘ v8c " , ‘ v8e‘ , '^8g' 

1100 RESTORE1 1 10 : FOR I =2T012 : READA* : LOCATES , I : PR I NTA* ; : NEXT 
1110 DATA' 7*9 J 9fl9f" r* 9 ' 

1120 DATA' << 7*9 J *- » 

1130 DATA' CIO YtX* 7 9 *h7 
1140 DATA' C2D 7X 9 79tA 
1150 DATA' C3D S“93"> 9 37“ 

1160 DATA' C43 2.Z»"£ 9 37* 

1170 DATA' C53 *7* 9 

1180 DATA' C6D Atfc* 9 W* 

1190 DATA' C7D <2, 9 79feA 
1200 DATA' C83 X7972- (97*7+) 

1210 DATA' C93 2«a "iO 

1220 CONSOLE 1 5,1: CLS :A=1 
1230 INPUT ' f “ 7977J) ( 1-2 ) ' ; A : IFA>20RA< 1THEN1220 

1240 N*(l)='Nol" :N*(2)=' PC6' :FORI=lTOA 
1250 PLAY 'o6c64d32' : INPUT '771 9 VVT * ! ( 3t2«"7f “ ) ' ;N*( I ) 

1260 N* ( I ) =LEFT * ( N* ( I ) , 3 ) : NEXT ') * t 




3 RETURN 

3 SCREEN 2.2,1: CONSOLE0 ,16,0,0s COLORS ,0,1: CLS 
3 S0UND7 , 7 : S0UND6 , 8 : SOUND1 1 , 0 : S0UND12, 90 : S0UND13, 14 : S0UND8 , 16 
3 RESTORE1310 :FORI=0TO15:READA$:PRINTAi: :NEXT 
3 DAT A ' *@@@@0@@@@ h5@@@@@@@*@@@?@«@@PmB@ - 
3 "DATA ’ @*@@@@@A@@@+55@ : *+5++0@@@@@@A_h@ ’ 

3 DATA ‘ |- h h*, , |-*K H«@@@@Pp@@S 1 

3 DATA ’ @@@7t@@@@@@@@@@@@@*X@@@@@@@**@@4*’ 

3 DATA’*77f@@@@@@@A*‘*@@@<§*7B@@@ *@TiV@T - 
3 DATA'®** fc@@@ W45 ; @@@@5»tV7»te@ @«V774@’ 

3 DATA '@5 ; f @@*004/*@@? * 

3 DATA’@@1- 3«@@@@@@@7t=ltt **@@@@@@@*77/®® ‘ 

3 DATA’p@A_j@@9@@@7w*? 7773@@@@@@t 777' 

3 DATA'@@_@ ! :»*4@@@®@7 7@@@@@t-!)77° @ * 

3 DATA '@@77i@@@@*@@@B< Sfcfc@@@*@@@@U •&' 

3 DAT A ' @@77 1@@®@@ , 4® -AT "*=@*<@@@@B?=>@@ ’ 

3 DATA ' @*7274@@@ . 4@ @1??2@*@*<@@B?( +/@@ ’ 

3 DAT A ' C77@77*@@@ltO r T h»«.*7@@*7?@x7/f * 

3 DATA" ! L@@@ CJ@@@.i>*P *„ <@@@t7i3@@@f ’ 

3 data “ ■ 

3 RESTORE1480 : FORI =0TO26 : READA , B : POKE&HE200+A , B : NEXT 
3 DATA162, 255 ,163,255,164,255,194, 255 ,195,255,197, 255 , 227 , 255 
3 DAT A241 , 254 , 272 , 255 , 284 , 255 ,291,127, 304 , 255 , 319 , 255 , 316 , 255 
3 DATA317 , 255 , 348 , 127 , 349 ,127,430,127,431,127, 432 , 127 , 433 , 127 
3 DAT A453 , 127 , 463 , 127 , 464 , 127 , 465 , 96 , 479 , 255 , 479 , 255 
I FOR I =&HE000TO&HE1FF : POKE I , &H60 : NEXT : P0KE&HE3FF , 198 
I SCREEN ,2,2: AD=&HDFFF : RESTORE1580 : FOR I =0TO14 : READA$ 

I F0RJ=1T032 : AD=AD+1 : B$=MID$< A$ , J , 1 ) : IFB$= ' 1 ’ THENPOKEAD , &H62 
I NEXT: NEXT 

I C0L0R2 : LOCATE2 , 10 : PR I NTN$ ( 1 ) : C0L0R4 : L0CATE27 , 10 : PR I NTN$ ( 2 ) 

I RETURN 

I DATA’ 100111100011110008111111H000000 * 

I DATA ’ 111111100001110111111111H000000 ■ 

I DATA’ 11110000000111111111110000000H1 ■ 
l DATA ’000000000000 110001 10000000000000 ’ 

I DATA ’00000001000001000010000000000000* 
i DATA 1 000000000000O0H1000000Q0000000Q ■ 

i DATA ’01111111100000000001011111111101 " 
i DATA ’001 11111 1000000000000001 11 100000’ 
DATA’00111111100010000000000110000000' 1 
DATA ’00000011 1000000000000000000000H ■ 
DATA’01111110000000000000000000000001 ’ 

DATA ’01 111 1110000011 Hi 10000010000000 * 

DATA ’00000000000000 11 110000001 1100011’ 
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0 REM a**#**#####*##*****##*** 

1 REM ELEUSIS Uft-5.7) V.1.0 

2 REM (c) M. SUETSU6U 1983.8 

3 REM **x*#*#**#**»#***#****#* 

10 DIM D(4,13),CT(4),NT*(13),RU*<20),TA(2,10),HI*<5),A$<5>,M*(1,3) 
20 SCREEN1, 1,1: CONSOLE, ,0,0:COLOR1, ,1:CLS 
30 L0CATE12,7:PRINT"T>f“ K9 ! ' 

50 GOSUB9500 
60 GOSUB9800 

100 GOSUB9200 : GOSUB9000 : GOSUB8000 
200 REM*sample# 

210 DG=INT(RND(1>*10)+1 
230 GOSUB3000 
235 F0RH=1T04-LE 
240 V1=INT <RND( 1 )*4) + l 
250 N1=INT (RND( 1)*13)+1 
260 IFD( VI , N1 )=1THEN240 
270 GOSUB900 
280 IFCK=0THEN240 
290 GOSUB3000 : NEXTH 
300 REM *main* 

310 IFED=1THEN600 

320 LINE(0 ,0 )-( 255,23) ,2,BF 

330 EXEC&H1058 

340 LOCATE0 , 0 : COLOR1 : PR I NT ’ *( 1 ) -♦( 4 ) ? 

350 A*= I NKEY* : I FA$= ' ’ THEN350 
360 IFA$= ’ t " THENGOSUB800 : GOTO300 
370 I FA$= ' 7 ' THEN630 

380 I F A$= ' 1 ’ ORA$= ' 2 * ORA* = ' 3 ' ORA*= ' 4 ' THENV1 =VAL (A*) : GOTO400 
390 GOTO350 

400 PLAY ' 1 8c " , " 1 8e" :EXEC&H1058 

410 LOCATE11 , 0 s COLOR1 :PRINTCHR*( &H80+V1-1 A* ' 

420 LOCATE0.1 SPRINT - 1 - K ? 

430 A*=INKEY$: IFA*=" "THEN430 
440 I F A*= " L " THENGOSUB800 : GOTO300 
450 IFA*= * 7 " THEN630 

460 A=VAL( A* ) s IFA>0ANDA<10THENN1=A:GOTO520 
470 IFA*= - 0 - THENN1=10 :GOTO520 
480 IFA$= " j " THENN1=11 SGOTO520 
490 I FA*= " q " THENN1=12 : GOTO520 
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500 I F A$= " k " THENN1=13 : GOTO520 
510 GOTO430 

520 PLAY ’ d 1 , ■ f ' : LOC ATE1 1 , 1 s PR I NTNT$ ( N1 ) 

530 GOSUB1000 : GOTO300 
600 REM **END SaU ** 

610 FORI=1TO10 

620 SCREEN1 ,1,1 :FORJ=1TO120 sNEXTJ:SCREEN3,2,2sFORJ=lTO50 :NEXTJ, I 

630 LINE( 0 , 125)-( 255, 185 ) , 4 , BF 

640 LINEC0 , 0 )-( 255,23 ) , 2 , BF 

650 LOCATE0 ,11: C0L0R2 s PR I NT ' < A- A > * ; 

660 COLOR1 :PRINTRU$(DG+(CL-1 )*10 ) 

665 FOR I =0TO3 s PLAYM$ ( 0 , 1 ) , M$ < 1 , 1 ) : NEXT I 
680 LOCATE2.0 : PR I NT ’RETRY? (Y/N)' 

690 A$=INKEY$: IFA$=" "THEN690 

700 IFA$= " y ‘ THEN60 

710 I FA$= ' n ' THENEND 

720 GOTO690 

800 REM ** HINT ** 

805 PLAY"o61 10fdfdfdfd" 

810 LINE(0,0)-( 255 , 23 ) , 2 , BF 

820 LOC ATE0 , 0 : C0L0R3 S PRINT ’< F> ' 5 

830 COLORl :PRINTHI$(TA(CL,DG) ) 

840 FORI=1TO2000 :NEXTI :RETURN 
900 REM**** 

910 CK=0 : IFCL=2THEN930 

920 ON DG GOSUB5000, 5100, 5200, 5300, 5400, 5500, 5600, 5700, 5800, 5900: RETURN 
930 ON DG GOSUB6000, 6100, 6200, 6300, 6400, 6500, 6600, 6700, 6800, 6900 : RETURN 
1000 REM *A>fY* 

1010 IFD(V1,N1)=1THEN2000 

1020 GOSUB900 

1030 IFCK=0THEN2100 

1040 L I NE ( 0 , 0 ) - ( 255 , 23 ) , 2 , BF 

1042 LOCATE0.0SCOLOR3 SPRINT' tYM! * 

1050 GOSUB3000 

1060 GOSUB4000: RETURN 

2000 REM **11-1** 

2010 LINEC0 ,0 )-< 255,23) , 2,BF :PLAY'o7ffff" 

2020 LOCATE0.0 SPRINT' 377)-rA 7.T'Z VD-9U12'.' 

2030 FOR I =0TO900 s NEXT I s L I NE ( 0 , 0 ) - ( 255 , 23 ) , 2 , BF s RETURN 
2100 REM **17-2** 

2110 NN=NN+1 sPLAY 'o71 12dcdc ' 

2120 LINE<0,0)-( 255 , 23 ) , 2 , BF 

2130 I FNN >=9THENL I NE ( 226 , 24 ) - ( 253 , 124 ) , 1 , BF s NN=1 
2140 L0CATE14 , NN+1 S COLORCT ( VI ) 

2150 PRINTCHR$( &H80+V1-1 ) ;NT$(N1 ) 

2160 LOCATE0.0SCOLOR3 SPRINT' ' 

2170 FORI=0TO900 s NEXT I :LINE(0 ,0 )-(255,23) ,2,BF 

2180 RETURN 

3000 REM *tY»Y ta92.*' 

3010 SN=SN+1 

3020 GN=INT ( (SN-1 )/8) 

3030 L0CATEGN*2 , SN-GN*8+1 s COLORCT ( VI ) 

3040 PRINTCHR$(&H80+V1-1);NT$(N1) 

3050 VZ=VP s NZ=NP : VP=V1 : NP=N1 

3055 PLAY ' s0ml0000 1 12tl20o6cdcecfcgcacgcfcecdc ' , 'vllml0000tl201 1 o5cc 2 
3060 LINE( 226, 24 >-(253,124) ,1 ,BF:NN=0 
3080 LOCATEN1+1 , Vl+10 :C0L0R4 : PRINTNT$( N1 ) 

3090 D( VI , N1 )=1 

3100 RETURN 

4000 REM ** END? ** 

4010 F0RI=1T04 :F0RJ=1T013 
4020 IFD( I , J )=1THEN4050 
4030 V1 = I :Nl=JsGOSUB900 
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4040 IFCK=1THENRETURN 
4050 NEXT J, I 
4060 ED=1: RETURN 
4900 REM***RULE*** 

5000 I FVP=4THENIFV1=1THENCK=1 {RETURN 

5010 IFVP>=lANDVP<=3THENIFVl=VP+lTHENCK=ls RETURN 

5020 RETURN 

5100 IFVP=1ORVP=3THEN5130 

5110 IFV1=10RV1=3THENCK=1 : RETURN 

5120 RETURN 

5130 IFV1=20RV1=4THENCK=1: RETURN 
5140 RETURN 

5200 I FNP=13THENIFN1=1THENCK=1 : RETURN 
5210 IFN1=NP+1THENCK=1: RETURN 
5220 RETURN 

5300 IFNP-INT ( NP/2 )*2=0THEN5330 
5310 IFN1-INT ( Nl/2 )*2=0THENCK=1 :RETURN 
5320 RETURN 

5330 I FN1- I NT ( Nl/2 ) »2=1THENCK=1 : RETURN 
5340 RETURN 

5400 IFN1=NPTHENCK=1: RETURN 

5410 F0RK=1T04 

5420 IFD(K,NP)< >1THENRETURN 

5430 NEXTK 

5440 CK=1 {RETURN 

5500 I FNP=13THEN I FN1=2THENCK=1 : RETURN 

5510 IFNP=12THENIFN1=1THENCK=1 {RETURN 

5520 I FNP= > 1 ANDNP< =1 1 THEN I FN1=NP+2THENCK= 1 { RETURN 

5530 RETURN 

5600 I FNP= >1 ANDNP< =7THEN I FN1 >=8ANDN1< =13THENCK=1 { RETURN 
5610 IFNP=>8ANDNP<=13THENIFN1>=1ANDN1<=7THENCK=1 {RETURN 
5620 RETURN 

5700 IFN1<>NPTHENCK=1 {RETURN 
5710 RETURN 

5800 I FN1=NP0RV1=VPTHENCK=1 {RETURN 
5810 RETURN 

5900 I FNP= > 1 ANDNP< =7THEN5930 
5910 IFV1=20R V1=4THENCK=1{ RETURN 
5920 RETURN 

5930 IFV1=10R V1=3THENCK=1 {RETURN 
5940 RETURN 

6000 IFNP-INT ( NP/2 )*2=0THEN6030 
6010 IFV1=10R V1=2THENCK=1{ RETURN 
6020 RETURN 

6030 IFV1=30R V1=4THENCK=1 {RETURN 
6040 RETURN 

6100 IFVP-INT ( VP/2 )#2=0THEN6130 
6110 IFN1-INT(N1/2)#2=0THENCK=1 {RETURN 
6120 RETURN 

6130 I FN1-INT(N1/2)*2=1THENCK=1 {RETURN 
6140 RETURN 

6200 I FNP- I NT ( NP/4 ) *4=1THEN I FV1=1THENCK=1 { RETURN 
6210 I FNP- I NT ( NP/4 ) *4=2THEN I FV1=2THENCK=1 { RETURN 
6220 IFNP-INT(NP/4 )*4=3THENIFV1=3THENCK=1 {RETURN 
6230 IFNP-INT(NP/4)*4=0THENIFV1=4THENCK=1 {RETURN 
6240 RETURN 

6300 IFVP=1AND N1-INT(N1/4)*4=0THENCK=1 {RETURN 

6310 IFVP=2AND N1-INT( Nl/4 )*4=1THENCK=1 { RETURN 

6320 IFUP=3AND N1-INT(N1/4)*4=2THENCK=1 {RETURN 

6330 IFVP=4AND N1-INT( Nl/4 )*4=3THENCK=1 {RETURN 

6340 RETURN 

6400 I F ( VP+VZ ) - I NT ( ( VP+VZ ) /2 ) *2=1 THEN6430 
6410 IFNI >=1ANDN1<=7THENCK=1 {RETURN 
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6420 RETURN 

6430 IFN1>=7ANDN1<=13THENCK=1 :RETURN 
6440 RETURN 

6500 I F ( NP+NZ ) - I NT ( ( NP+NZ ) /2 ) *2=1THEN6530 
6510 IFV1=20R V1=4THENCK=1 s RETURN 
6520 RETURN 

6530 IFV1=10R V1=3THENCK=1 : RETURN 
6540 RETURN 

6600 I FVP- I NT ( VP/2 ) *2=0THEN6630 
6610 IFNI >=NPTHENCK=1 {RETURN 
6620 RETURN 

6630 I FN1<=NPTHENCK=1 {RETURN 

6640 RETURN 

6700 IFNP >NZTHEN6730 

6710 IFV1=20R V1=4THENCK=1 { RETURN 

6720 RETURN 

6730 IFV1=10R V1=3THENCK=1 {RETURN 
6740 RETURN 

6800 IFNP-INT < NP/2)*2=0THEN6830 
6810 IFV1=10R V1=3THENCK=1{ RETURN 
6820 RETURN 

6830 IFN1>=1ANDN1<=7THENCK=1 {RETURN 
6840 RETURN 

6900 IFVZ-INT ( VZ/2 )*2=0THEN6930 
6910 IFN1-INT(N1/2)*2=1THENCK=1 {RETURN 
6920 RETURN 

6930 I FN1- 1 NT ( Nl/2 )#2=0THENCK=1 { RETURN 
6940 RETURN 
8000 REM 

8010 RESTORE8020 { FOR I = 1 TO20 { READRU* ( I ) { NEXT I 
8020 DATA'* * * ♦ * ■ • -Jy'i9l\"sZ 9't' 

8030 DATA" 73)3)- 1"" h 7+3)-h“9 393”! 9't' 

8040 DATA' 1 2 3 ••• K 1 ••• Jy'i'yl\"sZ 9't' 

8050 DATA - 9" 97935- rh +793J-K9 393’Z 9't' 

8060 DATA - 71735- S" h ++2."792.*735-r 99‘t, +9+-J99 *7+* A+>+* +3+ 

8070 DATA ‘ 7174- h* Z 2992-979S-* 735- K* 99' t , K h 1 A *7*7 *+t+AK 7 A 
8080 DATA - 71735- S" 35" 1-7+9 8-K, 8-K+9 1-7 99"fe - 
8090 DATA - 71735- h“ h +35" 979=-* 73>- h" 99" t - 

8100 DATA - 71735- S" K ++2-"79»"735-h" 79/\ ++2-*2.iM73)-h*99*t 
8110 DATA - 7l7H-r35" 1-7 +9 7+, 8-K+9 7 1) 99"t - 
8120 DATA - 71735- h" 35" 9“979+9/\" * 1) ♦ 9, +79+9A* * 3) * 99"t 

8130 DATA - 71735- r3J“ 7+ +9A" 9*9799, 71) t*7l\' +79 9 9't' 

8140 DATA - 71735- h" 947* 79 77935*1+9*, 2+9*. 3+9*, 0+7*99’fe - 

8150 DATA - 71735- K" 35* * * ♦ ♦+ 9 4r"99 7793J*Vl/V"U 0,1, 2, 3. h+A+799"t 

8160 DATA" 71727+735- h“ 35“ ++=.*+0+9 1-7, +3T9+0+7 7-k99"f 

8170 DATA - 71727035- h"99Sf 9*979+9 73J, +79+9 7+99* fe - 

8180 DATA - 71735- +* 35" 7+ +9A* Vl/+5>*a9, 735 +9A" VU+3)7792'*99“ t 

8190 DATA" 71735- r 3J* V77I73)- h" 39+++9UA" 7+, t"+ 9UA* 73J99’f 

8200 DATA - 71735- h* 35" 9"979+9A" 1-7 9, +79+9A" 7+3)-h*9 9*t 

8210 DATA - 2*771735- h* 35* 735 +9A" 9*9799, 7+ +9A* +79 99* fe 

8300 RESTORE8310 { FOR I =1T02 { FORJ=1TO10 { READTA ( I , J ) { NEXT J , I 

8310 DATA 1,1, 2, 2, 2, 2, 2, 2, 3, 2, 2, 1,2, 1,4, 4, 1,4, 2, 5 

8320 RESTORE8330 { F0RI=1T05 { READHI$( I ) {NEXT I 

8330 DATA - 71735- h* 7 5>iA+Z 9i9+! - 

8340 DATA - 7I73J -S"7 357’Z fi9+! - 

8350 DATA - 71735- K* 7 iiMh 3J7*Z fi9+!* 

8360 DATA - 7127+73)- K" Z 9i9+! - 
8370 DATA - 2*77173)- h‘Z 9i9+!’ 

8400 RESTORE8500 

8410 FOR J=0TO1 { FORK=0TO3 { READM$ ( J , K ) { NEXTK , J { RETURN 
8500 DATA S0ml0000t82o51 8g4 

8510 DATA g . 1 16f e-f ga-1 8b-go6e-o5b-o6gr8o5f 4f . 1 16gf e-dc 
8520 DATA o4 1 8b-o5df db-r8 1 4e-e- 1 16f e-de- 1 8f ga-b-o6cr8 
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8530 DATA 1 4o5ff 1 16fefge-4e-8r8r4 
8540 DATA v,llml0000t821 8o3e-b- 

8550 DAT A o4e-o3b-o4f o3b-e-b-o4b-o3b-o4b-o3b-o2b-o3b-o4do3b-o4e-o3b- 
8560 DATA o2b-o3b-o4f o3b-o4do3b-cgo4co3go4^-o3go2a-o3fo4co3f o4e — o3f 
8570 DATA o2b-o3a-o4do3b-o4a-o3b-e-b-o4e-41 8 
9000 REM*5o*fl"X>* 

9010 SCREEN3 ,2,2: C0L0R2 ,1,2s CLS 

9020 FORI=0TO8 : LINE ( 32*1 , 12 )-( 32*1 , 125 ) , 3 : NEXT I 

9030 LINE( 0 , 125 )-( 255 , 185 ) , 4 , BF 

9040 F0RI=1T04 

9050 L0CATE1 , 10+1 sCOLORCT( I ) :PRINTCHR$( &H80+i-l ) { ' 1234567890 JQK ’ s NEXT I 
9060 A$=‘1234‘ :F0RI=1T04 

9070 COLOR1 s LOCATE©, 10+1 sPRINTMID$( A$, I , 1 ) :NEXTI :C0L0R2 

9080 LINE(0,0)-( 255 , 23 ) , 2 , BF 

9090 L I NE < 0 , 24 ) - ( 32 , 24+ 1 2* ( 5-LE ) ) , 4 , BF 

9100 LINE (224, 23 )-( 255 , 1 25 ) , 2 , B 

9110 RETURN 

9200 REM*A>79 S-aTfl* 

9210 KEY1 , " L ‘ :KEY2, '7' 

9220 ED=0 :NN=0 :SN=0 

9230 RESTORE9240 : FOR I = 1T04 : READCT ( I ) : NEXT I 
9240 DATA 2, 3, 2, 3 

9250 RESTORE9260 :F0RI=1T013:READNT$( I ) sNEXTI 

9260 DATA 1 ,2,3,4 ,5,6, 7, 8,9,0 , J,Q,K 

9270 VP=INT ( RND( 1 )*4 )+l s V1=VP 

9280 NP=INT ( RND( 1 )*13)+1 :N1=NP 

9290 F0RI=1T04 sF0RJ=lT013sD( I , J)=0 sNEXTJ, I 

9300 RETURN 

9500 REM*t*7X-f* 

9510 SCREEN3 ,2,2s C0L0R3 ,1,1s CLS 
9520 FORI=30TO96:PLAY’n=i ;64" :NEXTI 
9530 LOCATE 1 , 3 5 PR I NT " ELEUS I S (YA-5.7) 

9540 L0CATE7 , 5 : PR I NT ‘ A * 

9550 LOCATE0, 7 SPRINT’ 7-0111 a 77 t'-L 

9560 L0CATE7 , 9 : PR I NT ' f “ 7* 

9570 L0CATE7 , 12 S PRINT '? ' 

9580 FOR I =96TO10STEP-1 s PLAY ’ n= i ; 64 ’ : NEXT I s CLS 
9590 SCREEN4 ,2,2: COLOR1 ,0,2: CLS 
9600 A$( 1 )= "PC-6001 D" S7>7°7 t7VJIr’ 

9610 A$(2) = 't>7«7 *77977’ 

9620 A$(3)="* 

9630 A$( 4 )= " 777A U tVJJ A-A7 7 
9640 A$(5) = '5D"S T7A“72-77f77"9Y‘ 

9650 F0RI=1T05:L0CATE1 ,2*1-2 
9660 FOR J=1T032 : A$=M I D* ( A$ ( I ) , J , 1 ) 

9670 IFA$=" "THEN9690 
9680 PR I NTA$ ; : PLAY ’ o6f 64 ’ 

9690 NEXT J, I 

9700 FORI=1TO1500:NEXTI:CLS 
9710 COLOR1, 0,1s CLS 

9720 L0CATE4 , 5 : PR I NT " * FI*-’ 

9730 L0CATE4, 7 SPRINT’* h”75-ff 7»7T-rS*A. F2*-’ 

9740 LOCATE 10 , 10 SPRINT ‘7 *~.?77“1 U 

9750 FORI = 1TO3000 sNEXTI sCLSsRETURN 

9800 SCREEN3 ,2,2s C0L0R3 ,2,2s CLS 

9810 LOCATE© , 2sPRINT ’ LEVEL7I7 >t" 77“ 9Y * sCOLORl 

9820 L0CATE3, 5 SPRINT ' 1 S-a + il’ 

9830 L0CATE3 , 7 s PRI NT ’ 2 fiO+iO' 

9840 L0CATE3 , 9 s PR I NT ’ 3 5."a9 + i7’ 

9850 C0L0R4 s L0CATE5 , 12 S PRINT ' 1-3 ?* 

9860 A$=INKEY$s IFA$=’ ’THEN 9860 

9870 I FA$= ’ 1 ’ ORA$= ’ 2 ’ THENCL=VAL ( A$ ) s LE=CL S CLS s RETURN 
9880 IFA$= ’ 3 ’ THENCL=INT(RND( 1 ) *2 ) + l s LE=3 s CLS s RETURN 
9890 GOTO9860 









FOR 1=1 TO 9 
X1=6+INT (RNO< 1 )*6)*5 
Y1=8+INT ( RND( 1 )*4 )#4 
LINE(Xl,Yl)-(Xl,Yl+2>, ,2 
Xl= 2+INT(RND(l)*7)*5 
Y1=11+INT (RND( 1 )*3)*4 
LINE(X1,Y1)-(X1+3,Y1), ,2 
NEXT I 

COLOR 4 

FOR 1=1 TO C 

MX( I ) = 1+INT(RND<1)#8)*5 

MY( I )=7+INT(RND( 1 )»5 )*4 

P=PEEK ( &HF302+MY ( I >*120+MX( I )*2> 

IF POASCC ”) THEN 450 

Ml( I >=RND( 1 )»3-l sM2( I )=RND( 1 )*3-l 

P=PEEK ( &HF302+( MY ( I )+M2< I ) )*120+<MX< I )+Ml( I ) )*2> 

IF POASCC ' )THEN 450 

LOCATEMX( I ) ,MY( I ) {PRINT ; 

NEXT I 


3 COLOR 6 
3 FOR 1=1 TO CG 
3 XI =1+1 NT (RND( 1 )»8)*5 
1 Y1=7+INT(RND( 1 )*5 )*4 
I P=PEEK(&HF302+Y1*120+X1*2 ) 
) IF POASCC ') THEN 570 
> IF Xl=31 AND Yl=7 THEN 570 
I L0CATEX1 ,Y1 SPRINT " ; 

) NEXT I 


> LOCATE 31, 6 SPRINT * 

I COLOR 5 

I LOCATE 31 ,2:PRINT ' ,-+-+-K ' 

I LOCATE 31 ,3sPRINT 
I LOCATE 30 ,4 SPRINT * I T +-r- , I ' 
I LOCATE 31 ,5$PRINT <->■' 

I C0L0R7 s LOCATE0 , 0 


3 PRINTUSING' SCORE #### C HU T'-h 1 ' 

3 REM 44444 U'j K-7° 44444 
3 FOR T=149 TO 0 STEP -1 
3 BEEP1 sBEEP0 

3 COLORS? I=INP(0)sJ=INP(l) 

3 IF 1=239 THEN SY=0 s SX=-1 sP$=' >' sGOTO 830 
3 IF 1=191 THEN SY=0sSX= 1 s P$= '<' sGOTO 830 
3 IF 1=251 THEN SX=0sSY= 1 s P$= ' * ' sGOTO 830 
3 IF J=254 THEN SX=0 sSY=-l sP$= 'V' sGOTO 830 
( IF INP(8)=239 THEN 1270 

3 P=PEEK( &HF302+( Y+SY )*120+( X+SX )#2 ) 

3 IF P=ASC( 3THEN1460 
I IF POASCC ’ 3THEN930 



970 IF INP< 93=191 AND S1=0 THEN GOSUB1680 
980 ' 

990 C0L0R7 :LOCATE29,0 sPRINTUSING ‘ Time ###' ;T 

1000 REM 55555 J 0*9 55555 

1010 FOR M=1 TO C 

1020 IF MX( M )=0 THEN 1150 

1030 IF (MX(M)-l) MOD 5=0 AND (MY(M)-7) MOD 4=0 THEN GOSUB 
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1040 IF Ml ( M )=0 AND M2(M)=0 THEN GOSUB 1430 
1050 ' 

1060 LOCATE MX(M) ,MY(M) 

1070 PRINT ■ ■; 

1080 MX ( M ) =MX (M)+M1(M) 

1090 MY(M)=MY(M)+M2(M) 

1100 ' 

1110 P=PEEK ( &HF302+MY ( M ) *120+MX < M )*2 ) 

1120 IF P>ASC< *«* ITHEN MX(M)=MX(M)-M1(M) sMY(M)=MY(M)-M2(M> sGOSUB 1430 
1130 LOCATE MX(M) ,MY(M) 

1140 C0L0R4 s PR I NT ’ ♦* ; 

1150 NEXT M 
1160 ' 

1170 IF T MOD 3000 THEN 1250 
1180 X1=1+INT (RND( 1 )#8 )#5 
1190 Y1=7+INT ( RND( 1 )*5 )#4 
1200 P=PEEK(&HF302+Y1*120+X1*2) 

.1210 IF POASCC ‘I THEN 1250 
1220 IF Xl=31 AND Yl=7 THEN 1180 
1230 COLOR 6 

1240 L0CATEX1 , Y1 SPRINT’** ; 

1250 ' 

1260 NEXT T 

1270 REM 66666 T'-L *-/\“- 66666 
1280 COLOR 7 

1290 L0CATE4.1 SPRINT* ^ r> m-i ^-r -n — . r-^ 

1300 L0CATE4, 2 SPRINT* I I — I I I I I H IIIIHH-' 

1310 L0CATE4, 3 SPRINT* * — '- 1 - — 1 ^ 

1320 FOR 1=0 TO 20 
1330 BEEP1 S0UT81 .33 
1340 FOR J=0 TO I 
1350 NEXT J 
1360 UI DTH40 , 25 s BEEP0 
1370 NEXT I 

1380 L0CATE3.4 SPRINT *f 9 <fr >77»?CYES( y )/NO(n ) 3 

1390 IF INKEY$=’y* THEN RUN 

1400 IF INKEY$=‘n * THEN END 

1410 GOTO 1390 

1420 END 

1430 REM 77777 *939 9 66666 

1440 IF RNO( 1 ) >.5 THEN Ml( M)=RND( 1 >*3-1 sM2(M)=0 ELSE M2(M )=RND( 1 )*3-l sMl(M)=C 
1450 RETURN 

1460 REM 88888 *»7 88888 
1470 FOR K=0 TO 20 
1480 BEEP1 SBEEP0 
1490 NEXT K 
1500 ' 

1510 C1=C1 + 1 sS=S+10 SC0L0R7 

1520 LOCATE 1,0 s PRINTUSING ‘SCORE ####* ;S 

1530 COLORS s LOCATE X.YsPRINT’D* 

1540 X=X+SXsY=Y+SYs 
1550 * 

1560 FOR K=1 TO C 

1570 I FX=MX < K ) ANDY=MY ( K ) THENMX < K ) =0 
1580 NEXT K 

1590 LOCATE X.YsPRINTP* 

1600 IF C1=C THEN 1620 
1610 GOTO910 

1620 REM 99999 *“-T7 99999 

1630 C0L0R7sF0R K=T TO C STEP -5 

1640 S=S+ Is LOCATE 1,0 SPRINTUSING "SCORE ####*;S 

1642 LOCATE29.0 SPRINTUSING* Time ###*;K 

1645 FOR U=0 TO 15 s NEXTU s BEEP1 s BEEP0 s NEXTK 

1650 C=C+1 

1660 IF C=6 THEN C=2sCG=CG+l 
1670 GOTO 190 

1680 REM 00000 fH Dlft 00000 

1690 FOR K=T TO 150 

1700 LOCATE XX(K),YY(K) SPRINT* * 

1710 BEEP1 SBEEP0 
1720 NEXT K 

1730 Sl = lsP*="''* sX=31sY=5 
1740 RETURN 
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uxm try 


10 R=RND( 1 ) 

20 REM *** 5o*fl"JO »*# 

30 U I DTH80 , 25 : CONSOLE© ,25,0,1: C0L0R7 ,0,1: PRI NTCHR$< 12 ) ; : GOTO540 
40 RESTORE: REM *** f“f> *«* 

50 COLOR4 : REAOX , Y : IFX< >0THENPSET ( X , Y ) : GOTO50 

60 DAT A50, 60, 51, 60, 52, 61 ,53,62,54,63,55,62,56,61,57,60,57,54,57,56,58,55,58,60,5 

8.61.58.62.58.63.58.64.58.69 

70 DATA59, 54, 59, 55, 59, 56, 59, 57, 59, 58, 59, 59, 59, 60, 59, 61, 59, 62, 59, 63, 59, 64, 59, 65, 5 

9.66.59.67.59.68.59.69 

80 DATA60, 53, 60, 54, 60, 55, 60, 56, 60, 58, 60, 60, 60, 61, 60, 62, 60, 63, 60, 64, 60, 65, 60, 66, 6 
0,67,60,68,60,69 

90 DATA61, 52, 61, 53, 61, 54, 61, 55, 61, 56, 61, 57, 61, 58, 61, 61, 61, 62, 61, 63, 61, 64 
100 DATA62, 52, 62, 53, 62, 54, 62, 55, 62, 56, 62, 58, 62, 60, 62, 61, 62, 63, 62, 64 

110 DATA63, 53, 63. 54, 63. 55, 63, 56, 63, 57, 63, 58, 63, 59, 63, 60, 63, 61. 63, 62, 63, 63, 63, 64, 

63.65.63.66.63.67.63.68.63.69 

120 DATA 64,54,64,55,64,56,64,57,64,58,64,59,64,60,64,61,64,62,64,63,64,64,64,65 
,64,66,64,67,64,68,64,69 

130 DATA65, 60, 66, 61, 66, 62, 66, 63, 66, 64, 66, 65, 67, 65, 0,0 
140 L0CATE14 , 11 iC0L0R3: PRINT ‘ / S'; 

150 LOCATE14 , 12 : PRINT ‘ I 2)7“ 5.39t* ■ I" i 
160 L0CATE14, 13:PRINT'I Let's go ! f S 

170 LOCATE 14 , 14 SPRINT ‘ v /' i 

180 GOSUB3590 

190 FORI =1TO300: NEXT 

200 LINE< 14 , 11 )-<27, 14 ) , ‘ \BF 

210 C0L0R4 : FORI =1T011 : READX , Y : PRESET (X , Y ) : NEXT 

220 DATA50, 60, 51, 60, 52, 61, 53, 62, 54, 63, 55, 62, 66, 62, 66, 63, 66, 64, 66, 65, 67, 65 
230 FORI =1T01 1 : READX , Y : PSET< X , Y ) : NEXT 

240 DATA56, 62, 56, 63, 56, 64, 56, 65, 55, 66, 67, 62, 68, 63, 69, 62, 70, 61, 71, 60, 72, 60 
260 PRESET (61,57): fSET (60,57): PRESET (63,57): PSET (62,57) 

270 PRESET (57,54): PRESET ( 58 , 55 ) : PRESET ( 57 , 56 ) 

280 PSET (65,54): PSET ( 66 , 55 ) : PSET ( 65 , 56 ) 

290 L0CATE35, 11 :C0L0R3: PRINT - / V : „ L „. 

300 L0CATE35, 12:PRINT "I PC-8001 9 I’; 
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310 L0CATE35 , 13: PR I NT 'I 3 □ 5 0 ! T S 

320 L0CATE35 , 14 : PR I NT ‘ \ ; 

330 GOSUB3590 

340 FORI = 1TO200 sNEXT sLINE(34,ll)-(47,14),’ 1 ,BF 
400 FORI=1TO1000 :NEXT sPRINTCHR*( 12) 

410 RETURN 

420 REM **» MAIN *** 

430 GOSUB920 
440 GOSUB40 
450 GOSUB3190 
460 GOSUB600 
480 GOSUB790 
490 GOSUB970 
500 GOSUB1240 

510 F0RGA=1T09 :G0SUB1 370 : NEXT : GOSUB3060 : IFOL=2THEN480 
530 END 

540 REM *** 5-3* fe-jfT #** 

550 CLEAR300 , &HCFFF 

560 DEFUSR0=&HEE50 : DEFUSR1=&HDBE0 

570 DIMTR( 40 ) , TR$( 40 ) , NA*(4) , AD(10,20),MO(4),KI$(4) ,SU$( 10 ) ,D0( 4 ) , MY( 4 ) , KA( 4 ) 
580 F0RI=1T04:M0( I )=10000:NEXT :Y=0 

590 DIM0P(4) , 0A(4) , ME$(4) ,PE(9,4),0B(4),JU(4) SGOTO420 
600 REM *** t? I K9D? #** 

610 COLOR7.0 , 1 sPRINTCHR$( 12) 

620 C0L0R4 : FOR 1=1 T04i LOCATE 10 ,2+1 s PRINTI s " A“ VXZtM 771 A " ; : INPUTNA$( I ) 

630 NA$( I )=LEFT$( NA$( I )+ ’ ' , 4 ) :BEEP0 (NEXT 

670 GOSUB3590 s GOSUB3870 
680 FORI=1TO1000:NEXT SGOSUB3650 
700 RETURN 

790 REM *«* 55- r 7*51 *** 

800 PRINTCHR$( 12) : LOCATE 15 , 10 : COLORS: PRINT 'T? , fl- fj-jK 7’5?f7H’„ ' s 
810 RESTORE820 : FOR I =1T04 : READK I $ ( I ) : NEXT 
820 DATA - *' , 

830 FORI=lTO10sREADSU*< I )sNEXT 

840 DATA " A‘,’2','3‘,'4','5',"6',"7",'8","9',"10' 

850 REM 

860 FOR I =&HFF70TO&HFF70+40 : POKEI , 0 : NEXT : FORU=1TO10 i F0RUU=1T04 
870 R=INT (RND( 1 )*40 )+l sR=VAL( - &H‘+HEX$(R) ) 

880 I FPEEK ( &HFF70+R ) =1THEN870 

890 TR(R)=UsTR$(R)=KI*(UU) : POKE8.HFF70+R , 1 

900 NEXTUU , U 

910 GOSUB3600: RETURN 

920 REM *** 7J> 3" *#* 

930 DATA5E , 23 , 56 , 42 , 4B , 3E , 20 , D3 , 40 , 0D , 20 , FD , 4B , AF , D3 , 40 , 0D 
940 DATA20 , FD, ID, 10 , EE,C9 

950 RESTORE930 : FOR I =&HEE50TO&HEE66 : READZ* : POKE I , VAL( ‘&h"+Z$) : NEXT 
960 RETURN 

970 REM »*» 557“ »”» *** 

980 RESTORE1000 : C0L0R7 ,0,0! PRINTCHR* ( 12 ) 

990 READCO , X , Y s IFCO< >0THENCOLORCO : PSET( X , Y , 6 ) : GOTO990 

1000 DATA1, 40, 2, 1,41, 2, 5, 41, 9. 2, 42, 2, 2, 43. 2, 3, 42, 8, 5, 43, 7, 3, 44, 0,3, 44, 1,3, 44. 2 
1010 DAT A3 , 44 , 3 , 3 , 44 , 4 , 3 , 44 , 5 , 3 , 44 , 6 , 3 , 45 , 2 , 4 , 46 , 2 , 4 , 47 , 2 , 5 , 47 , 8 5 47 9 
1020 DAT A7 , 48 , 2 , 7 , 48 , 3 , 5 , 48 , 4 , 4 , 48 , 5 , 4 , 48 , 6 , 4 , 48 , 7 , 2 , 48 , 8 , 2 , 48 , 9 

1030 DATA7, 60, 0,7, 61, 0,6, 62, 0,6, 63, 0,5, 64, 0,5, 65, 0,4, 66, 0,4, 67, 0,3, 68, 0,3, 69,0 
1040 DATA3, 69, 1,3, 69, 2, 3, 69, 3, 2, 69, 4, 2, 69, 5, 2, 68, 5 
1050 DATA1, 67, 6, 1,66, 7, 1,65, 8, 1,64, 9, 5, 63, 9, 5, 62, 9 
1060 DATA5, 72, 0,5, 72, 1,5, 72, 2, 4, 75, 0,4, 75, 1,4, 75, 2 

1070 DATA4, 81. 0,4, 82, 0,4, 81, 1,4, 82. 1,4, 81, 2, 4, 82, 2, 4, 81, 3, 4, 82, 3, 4, 81, 4, 4. 82. 4 
1080 DAT A4, 81, 5, 4, 82, 5, 4, 81, 8, 4, 82, 8, 4, 81, 9, 4, 82, 9 

S^’^^’ 5,86,0 ’ 5 ’ 85 ’ 1 * 5 ' 86 ’ 1 ’ 5 * 85 - 2 - 5 - 86. 2. 5, 85, 3, 5, 86, 3, 5, 85, 4, 5, 86, 4 
1100 DATA5, 85, 5, 5, 86,5, 5, 85, 8, 5, 86, 8, 5, 85, 9, 5, 86, 9, 0,0,0 
1110 LINE <10, 0)-( 14,0) ,CHR$( 31 ) , 5 
1120 LINE(50,0)-(54,0), CHR* ( 31 ) , 5 
1130 LINE(10,1)-(14,1) ,CHR*< 30 ) , 4 
1140 LINE(50,1)-(54,1),CHR*(30),4 

1150 C0L0R4: LOCATE 15,0 SPRINT '♦***■ ; SL0CATE46 , 0 s PRINT ‘ ♦*#*■ ; 

1160 C0L0R3sL0CATE15 , 1 s PRINT " ; SL0CATE46 , 1 s PRINT ’ **♦*■ ; 

1170 LINE<0,20 >-(62,20 ),’ _- ,6sLINE< 63,0) -(63,24) I 1 ,6 


1180 L0CATE63 , 20 s C0L0R6 s PR I NT ‘ 1 ' ; 

C0L0R3?PRI NT ! • ! PR INT ‘ ' 5 ! LOCATE30 , 21 S C0L0R3 S PR INT ‘ ; s L0CATE67 ,17s 

i?00 c 0U°R7:L0CATE9 , 20 s PRINT ' T s s L 0CATE24 , 20 s PRINT ’ 2 ' ; 5 L0CATE39 , 20 s PRINT ' 3 * ; s LOC 
ft I » 20 • PRINT 4 ; 
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1210 F0RI=1T04 :LOCATE40 ,20+1 :C0L0R6:PRINTUSING '& ■ ###### IV ;NA*( I ) ,M0< I ) ; : 

NEXT : L0CATE65 , 1 i PRI NT " Tt ' ; :L0CATE66, 2: COLORS: PR I NT 'COMPUTER' : 

1230 L0CATE66 ,3:C0L0R7 : PRINT ’ PC-8001?Sfa9 ' ; :CONSOLE20 , 25 
1240 REM *** l\° 9-> *** 

1250 RESTORE1270 

1260 FORI=1TO10 :FORJ=1TO20 :READAD( I , J) :NEXTJ, I : RETURN 
1270 DAT A3, 3, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 
1280 DATA3, 1,3, 5, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 
1290 DATA3, 1,3, 3, 3, 5, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 
1300 DATA1, 1,5, 1,1. 5, 5, 5, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 
1310 DATA1, 1,5, 1,3, 3, 1,5, 5, 5, 0,0, 0,0, 0,0, 0,0, 0,0 
1320 DATA1, 1,5, 1,1, 3, 5, 3, 1,5, 5, 5, 0,0, 0,0, 0,0, 0,0 
1330 DATA1, 1,5, 1,1, 3, 5, 3, 3, 4, 1,5, 5, 5, 0,0, 0,0, 0,0 
1340 DATA1, 1,5, 1,3, 2, 1,3, 5, 3, 3, 4, 1,5, 5, 5, 0,0, 0,0 
1350 DATA1, 1,3, 1,5, 1,1, 3, 3, 3, 5, 3, 1,5, 3, 5, 5, 5, 0,0 
1360 0ATA1. 1,3, 1,5, 1,1, 3, 3, 3, 5, 3, 3, 4, 1,5, 3, 5, 5, 5 
1370 REM *** Sub Main *** 

1380 GOSUB1450 
1390 GOSUB1560 
1400 GOSUB1670 
1410 GOSUB1800 
1420 GOSUB2120 

1430 GOSUB2860 s GOSUB2740 : GOSUB3670 : OL=l 
1440 IFOL=1THENRETURNELSELOCATE70 , 20 : GOTO1380 
1450 REM*** 17YX *** 

1460 RESTORE1550 : FOR J=1T04 : READX ,Q:NO=l : G0SUB2731 : READX , Q:GOSUB2680 : Y=Y+1 
1470 I FTR$( Y ) = ’ ORTR$( Y )= ' ♦' THENC0=2ELSEC0=7 

1480 COLORCO iLINE(X,Q)-(X+8,Q+4) , * ' , CO , BF : LOCATEX , Q : PR I NTSU$ < TR < Y > ) } : LOC ATEX , Q+ 
1 ! PRINTTR$( Y) ; : 1=1 :X=X+1 :Q=Q-1 
1490 IFAD(TR(Y),I)=0THEN1530 

1500 LOCATEADI TR( Y ) ,I)+X,AD(TR(Y),I+1 )+Q:PRINTTR$( Y ): 1=1+1 

1520 IFI<20THENI=I+1:GOTO1490 

1530 JU( J)=TR( Y ) :GOSUB3600 

1540 OA(J)=TR(Y):NEXTi RETURN 

1550 DAT A5, 7, 6, 8, 20, 7, 21, 8, 35, 7, 36, 8, 50, 7, 51, 8 

1560 REM*** TT *** 

1570 GOSUB2680 

1580 X=67 ; Q=4 : NO=l s G0SUB2731 : Y=Y+1 
1 590 I FTR$ ( Y ) = ' ♦' ORTR$ ( Y ) = ' ♦" THENC0=2ELSEC0=7 

1600 COLORCO : L0CATE68 , 5 s PR I NTSU$ ( TR (Y) ) ; : L0CATE68 , 6 : PR I NTTR$ ( Y ) ; 

1610 1=1 

1620 IFAD(TR<Y),I)=0THEN1650 

1630 LOCATE AD ( TR ( Y ) , I ) +69 , AD ( TR <Y) , I +1 ) +4 : PR I NTTR* ( Y > : I = I +1 

1640 IFI<20THENI=I+1:GOTO1620 

1650 PQ=TR(Y):OY=TR(Y):GOSUB3600 

1660 RETURN 

1670 REM *** DTA *** 

1680 F0RI=1T04: IFNA$( I )=‘COM # THENGOSUB3850 :GOTO1720 

1690 C0L0R5 : LOCATES , 21 : PR I NTNA$ ( I ) ; ' Tj h“ ; : INPUTDOI I ) s IFDO( I ) >40RD0( I )< 

1THEN1690 

1700 C0L0R4 : LOCATES, 22 :PRINTNA$( I)}' Tj < OJDT17.1) ’ i i INPUTMY ( I ) 

1710 IFMYI I ) >MO( I )OR(MY<I X100ANDMYI I > >0 5THEN1700 
1720 ONDO( I ) GOTO 1730 , 1740 , 1750 , 1760 

1730 L0CATE5, I+2iC0L0R4:PRINTNA$( I ) ; ‘ ; MY ( I ) :GOTO1770 

1740 LOCATE20 , 1+2 i C0L0R3: PRINTNA$< I ) i ‘ ' ; MY Cl) :GOTO1770 
1750 L0CATE35, 1+2:C0L0R7:PRINTNA$( I ) ; ’ : MY C I > S GOTO1770 

1760 LOCATE50 , I+2:C0L0R6:PRINTNA$( I ) i ' ' ;MY< I ) 

1770 LOC ATE48 , I +20 : C0L0R6 : PR I NTMO ( I )-MY( I ) ; sMO( I )=MO( I )-MY( I ) 

1780 KA(DO(I))=I:PE(DO(I),I)=l 

1790 LINE(5,21)-(28,22)," " , BF : NEXT : RETURN 

1800 REM *** I7YXY39 *** 

1810 RESTORE2110 ! F0RJ=1T04 :GOSUB2680 
1820 Y=Y+1 

1830 READX , Q : NO=2 : GOSUB2731 : READX , Q 

1840 IFTR$( Y ) = - * - ORTR$( Y ) = ■ ♦' THENC0=2ELSEC0=7 

1850 COLORCO :LINE(X,Q)-(X+8, Q+4 ) , " * ,CO,BF:LOCATEX,Q:PRINTSU$(TR(Y> ) j {LOCATEX, Q+ 

1jPRINTTR$(Y); t 1=1 

1860 IFAD( TR( Y ) , I )=0THEN1890 

1870 LOCATEAD( TR( Y ),I)+X+1,AD(TR(Y),I+1 )+Q-l : PRINTTR* ( Y ); i 1=1+1 
1880 IFI<20THENI=I+1 SGOTO1860 
1890 JU(J)=JU(J)+TR(Y):OB(J)=TR(Y) 


1900 IFKA( J)=0THEN2040 
1905 GOSUB3860 : IFFG=0THEN1950 
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1910 L0CATE65, 19:C0L0R4sPRINTJ ; ' ZDIOtt.tO' \ 

1920 L0CATE65, 20 : C0L0R4 :PRINT " 17-f.-f«, 1) 

1930 L0CATE65.21 : C0L0R5: PRINT " CyDorCrO " ; 

1940 I N$= I NKE Y$ : I F I N$= ■ y ‘ OR I N$= ■ Y • THENSUI=1ELSE I F I N$= 1 n ’ OR I N*= ‘ N ' THENSU=2ELSE1940 

1950 X=X- 1 : Q=Q-1 : N0=2 : G0SUB2731 : X=X+ 1 : Q=Q+1 : L I NE ( X , Q ) - < X+8 , Q+4 ) , ’ # ‘ ,3,BF:LINE(64 

, 19)-< 78 , 21 ) , - ’ ,7,BF 

1960 IFSU=2THEN0P( J)=0sGOTO2045 

1970 GOSUB2680 : Y=Y+1 

1980 X=X-1 : Q=Q+2 : N0=2 : G0SUB2731 :X=X+1 : Q=Q+1 
1990 I FTR* < Y )= ‘ ORTR$( Y ) = 1 V THENC0=2ELSEC0=7 


2010 IFADC TR( Y ) , I )=0THEN2040 

2020 LOCATEAD(TR(Y) , I )+X+l ,AD(TR( Y> , 1+1 )+Q-l :PRINTTR$< Y ) : 1=1+1 
2030 IFI<20THENI=I+1:GOTO2010 
2040 JU( J)=JU( J)+TR(Y):OP(J)=TR<Y) 

2045 FORNH=1TO100 : NEXTNH : NEXTJ : RETURN 

2110 DATA5, 10, 6, 11, 20, 10, 21, 11, 35, 10, 36, 11, 50, 10, 51, 11 

2120 REM *** It 2 7YX <30 *** 

2130 GOSUB2680 
2140 Y=Y+1 

2150 X=67 : Q=7 : N0=2 : G0SUB2731 

2160 I FTR$ < Y ) = ’ »■ ORTR$ < Y ) = - ♦’ THENC0=2ELSEC0=7 

2170 COLORCO : L0CATE68 , 8 s PR I NTSU* ( TR ( Y ) ) ; s L0CATE68 , 9 : PR I NTTR$ ( Y ) ; : I =1 
2180 IFAD< TR( Y ) , I )=0THEN2210 

2190 LOCATEAOC TR( Y ) , I )+69 , AD( TR( Y) ,1 + 1 )+7:PRINTTR$( Y) S 1 = 1+1 

2200 IFI<20THENI=I+1:GOTO2180 

2210 OY=OY+TR< Y) :PH=TR( Y) :GOSUB3600 

2220 REM***Tt 37< l\>9'> *** 

2230 GOSUB2430 : IFSHOBU $= - It JIM ' THEN2310 

2250 GOSUB2520 : IFNB$= ’ 1)7' * THEN2310 

2260 RESTORE2300 : FOR I =1T04 : READAZ 

2270 AA$=STR$( OY ) : AB$=RIGHT$( AA$, 1 ) : AC=VAL( AB$ ) 

2280 IFAC=AZTHEN2310 

2290 NEXT I SGOTO2330 

2300 DATA9,8,7,6 

2310 GOTO2420 

2320 REM *** It 3 7< *»* 

2330 GOSUB2680 
2340 Y=Y+1 

2350 X=67:Q=10 :NO=2 :G0SUB2731 

2360 I FTR$ < Y ) = ' » - ORTR$ ( Y ) = - ♦’ THENC0=2ELSEC0=7 

2370 COLORCO : LOC ATE68 , 1 1 : PR I NTSU$ ( TR ( Y ) ) ; : L0CATE68 , 12 ! PR I NTTR*< Y ) : : I = 1 
2380 IFAD( TR( Y ) , I )=0THEN2410 

2390 LOCATEADCTR(Y) , I )+69, AD(TR( Y ) , 1+1 )+10 :PRINTTR$< Y ) : 1=1+1 
2400 IFI<20THENI=I+1:GOTO2380 

2410 OY=OY+TR< Y ) ! GOSUB3600 : GOSUB2430 s GOSUB2520 : GOSUB2480 
2420 RETURN 

2430 REM *** 7-jfc°> & *** 

2440 IF(PQ=4ANDPH=l)OR(PQ=lANDPH=4)THENKC=5:NB*=’5.’Jt">' ’ 

2450 IF(PQ=9ANDPH=l)0R(PQ=lANDPH=9)THENKC=5sNB$= - ^f>! •ELSEIFNB*<> - 5.if>! "THEN2 

2460 SH0BU$= - Tf7»f 
2470 RETURN 

2480 REM *** Tf 7 “ 9 *** 

2490 I FOYMOD10=0THENNB$= ‘ 7“ 9 ‘ :KC=6ELSE2510 
2500 SH0BU$=‘;7“ " 

2510 RETURN 

2520 REM #** It 1)7' *** 

2530 AA$=STR* ( 0 Y ) : AB$=R I GHT* < AA$ , 1 ) : AC=VAL ( AB$ ) 

2540 IFAC=9THENKC=4 : NB*= * 1)7' ' ELSE2560 
2550 SHOBU$="?' 

2560 RETURN 

2570 REM *** DIZ'j 7M/-K *** 

2580 F0RV=1T04: IF( OA( V )=OP< V) ) ANO(OP( V)=OB( V ) )THENKC=1 :ME$( V)="7M/-h - 

2590 NEXTV: RETURN 

2600 REM *** DIZ'j 1)7' *** 

2610 FORV=l T04 : AA$=STR$ ( JU< V ) ) : AB$=R I GHT*( AAS , 1 ) : AC=VAL ( AB$ ) 

2620 I FAC=9THENKC=2 : ME$ ( V ) = * 1)7' ' 

2630 NEXTV: RETURN 

2640 REM *** DIZ'j 7' 0 #** 

2650 F0RV=1T04 



2660 IFJU( V)MOD10=0THENKC=3sME$( V)= - 7“?" 

2670 NEXTV 8 RETURN 

2680 REM *** KjI'j CARD *** 

2690 I FY< =35THEN2730ELSE Y=0 

2700 L0CATE65, 19 :C0L0R4 : PRINT " •C7JI-I''' ; 

2710 L0CATE65 , 20 : C0L0R6 8 PRINT ’ fa-s h , 77 F-sx . 1 ; 

2720 GOSUB850 sLINE< 65, 19 >-( 78 , 20 ) , ‘ " , BF 

2730 RETURN 

2731 REM *** CARD *** 

2732 0NN060T02733, 2734, 2735 

2733 L0CATEX,QsC0L0R7 SPRINT - i . - ; :F0RA=1T05:L0CATEX,Q+A:PRINT* I - ; sLOCATE 

X+10.Q+A SPRINT - I - ; sNEXTA sLOCATEX ,Q+6 ! PRINT - 1 1 - s sRETURN 

2734 LOCATEX , Q s C0L0R7 SPRINT - I 1" ; SF0RA=1T05 sLOCATEX, Q+A SPRINT - I 

I - ; s NEXTA s LOCATEX, Q+6 SPRINT - 1 1 - ; sRETURN 

2735 LOCATEX , Q s C0L0R7 SPRINT - I 1 - ; 8 F0RA=1T02 S LOCATEX , Q+A 8 PR I NT - I 

I - ; s NEXT A s LOCATEX , Q+3 s PR I NT - I 1 - ; sRETURN 

2740 REM **« *** 

2750 I FSHOBU$= - Tty »* - THENL0CATE5.21 sC0L0R3sPRINTNB*; - f " . 9-f J'JO h* 95*“ » ! - s SGOTO2850 

2760 I FSHOBU$= " ZT' - THENL0CATE5 ,21s C0L0R4 5 PR I NTNBS ; ’ f" . 11 ' ?' *• ! * ; s G0SUB2961 s G0T028 
50 

2761 GOSUB2570 8 GOSUB2600 s GOSUB2640 

2770 I FSHOBU$= - ? - THENL0CATE5 ,21s COLORS SPRINT ‘ 9YA. 87* t>? ! " i ELSE2805 
2780 FOR I = 1 T04 8 1 FMES ( I ) = ’ B7 " - THENGOSUB2930 
2790 IFME*( I ) = " 7 H-- h " THENGOSUB2950 

2800 I FMES ( I ) = - 7” 9 ‘ THENGOSUB2930 

2801 IFME$( I )=" "THEN2810 

2802 GOTO2840 

2805 F0RI=lT04s IFMESC I )= * 87" - THENGOSUB2950 

2806 I FMES ( I ) = - 7 H-- h - THENGOSUB2950 

2807 IFME$<I)= - 7*? - THENGOSUB2930 

2808 IFMESC I )= - "THEN2810 

2809 GOTO2840 

2810 AA$=STR$ ( OY ) s AB$=R I GHTS ( AA$ , 1 ) 8 AC=VAL ( AB* ) 

2820 AD$=STR$ ( JU( I ) ) s AE*=R I GHT$ ( AD$ , 1 ) s AF=VAL ( AES ) 

2830 I FAF > ACTHENGOSUB2950ELSE I FAF< ACTHENGOSUB2970ELSE I FAF=ACTHENGOSUB2930 
2840 NEXT I 

2850 GOSUB2990 sRETURN 
2860 REM*** PUT A CARD *** 

2870 RESTORE2900 

2880 FORI I = lT04sREADX,Qs IFKA< 1 1 )=0THEN2890ELSEIFOP( 1 1 )=0THENNO=2sGOSUB2731ELSENO 
=3sG0SUB2731 

2890 X9=X s Q9=Q 8 G0SUB2731 8 L0CATEX9+1 , Q9+1 S COLORS s PRINTSUSI OB( 1 1 ) ) 5 8 GOSUB3620 8 NEXT 
II 

2900 DATA5 ,10,20,10,35,10,50,10 

2910 RETURN 

2920 REM *** *** 

2930 REM *** *** 

2939 F0RJ=lT04s IFPEC I , J)=1THENM0( J)=MO( J)+MY( J) 

2940 NEXTJ s RETURN 

2941 REM *** *t V9 h * ') *** 

2942 F0RJ=lT04sM0( J)=MO( J) 

2943 NEXTJ sRETURN 
2950 REM *** Tt 11 *** 

2959 FOR J= 1 T04 s I FPE ( I , J ) = 1 THENMO < J ) =MO ( J ) +M Y ( J ) *2 

2960 NEXTJ 8 RETURN 

2961 REM *** Tt Zl' *** 

2962 F0RJ=lT04sM0( J)=MO( J)+MY< J) 

2963 NEXTJ s RETURN 
2970 REM *** *t Df *** 

2980 FOR J= 1 T04 s I FPE ( I , J ) =1 THENMO ( J ) =MO ( J ) 

2981 NEXTJ 8 RETURN 

2990 REM *** print 3-39 *** 

3000 L I NE ( 47 , 21 ) - ( 55 , 24 ) , - - , BF 8 FOR I = 1T04 s L0CATE48 , 20+ 1 8 C0L0R6 s PR I NTMO ( I ) ; 

3010 GOSUB3590 
3020 NEXT I 

3030 LINE(0,21)-(29,24), - - ,BF sLINEC 64 ,20 )-< 78,23) , »BF 
3040 F0RI=lT04sLINE(5,I+2)-(62,I+2), - - ,7sNEXT 
3050 RETURN 

3060 REM *** REPLAY *** 

3070 B$= - rr*7.7y3-S ?7a?CY/ND - 

3080 LOCATE10 , 4 s C0L0R4 8 FOR I=1TO20 8 PRI NTMI DS( BS , 1 , 1 ) ; 8 GOSUB3590 8 NEXT 

3090 I NS= I NKE YS 8 1 F I NS= - Y - OR I NS= - y - THENL0CATE35 , 4 s PR I NT - Yes - s GOTO3100ELSE I F I N$= - N 

- OR I NS= - n - THENLOC ATE35 , 4 s PR I NT - No - s GOTO3800ELSE3090 ') 7. Hi < 
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3100 ERASEMY , ME$,KA, JU,OA, OB ,0P : DIMMY ( 4 ) , ME$( 4 ) ,KA( 4 ) , JU( 4 ) , OAC 4 ) , OB( 4 ) ,0P(4 ) 

3101 ERASEPE ! D I MPE < 4 , 4 ) 

3102 OY=0 i OA=0 : PQ=0 : PH=0 : SHOBU$= ’ ' : KC=0 : NB*= - ’ : 6OSUB3105 

3103 FORI = 1TO3000 : NEXT : LINE( 5, 3)-< 62 , 19 ) , ' - , 7, BF : L INE( 64 , 4 )-< 77 , 16) , * \7,BF:0L 
=2: RETURN 

3105 REM *** CHECK *«* 

3106 F0RDF=1T04 : IFMO(DF) >100ORNA$( DF ) = ' COM * THENNEXT : RETURNELSE3107 

3107 LINE(5,3)-(40,10),‘ ' ,7,BF 

3108 GOTO3800 

3110 REM *** D9Z1' a? »** 

3120 F0RI=1T04 : IFMO( I ) >10000THENI 1=1 :NEXTI 

3130 IFI I=0ORINT(RND( 1 )*10 )<6THEN0L=1 : RETURN 

3140 LOCATES , 3 : C0L0R3 : PR I NT ' 7* ! f XI7 Dfzt' It ! ’ s 

3150 L0CATE5 , 4 sC0L0R4sPRINT A. h” 0* " -y I-s ' ‘ ; 

3160 L0CATE5 , 5 : COLORS: PRINT " A3 9 9-Y Hfr'stD' r»3>Fi'j 

3170 LOCATES , 6 : C0L0R6 : PRINT " 97t)r . t+Z'VY? . f 9L 97“ .ylyiOs ' ' ; 

3180 FORW=1TO5000:NEXTW.GOTO3100 
3190 REM *** >3* *»* 

3200 M=USR1< 0 ) 

3350 L0CATE24.21 :C0L0R7: INPUT " .Y977a. CY/N3 - ;P$ 

3360 I FP$= - Y ' ORP$= - y 1 THEN3370ELSE I FP*= ' N * 0RPS= - n ' THENRETURNELSE3350 
3370 PRINTCHR$( 12) 

3380 RESTORE3430 
3390 READQS : I FQ$= " * ’ THEN3570 
3400 I FQ$= ' & ' THENREADX , Y : GOTO3390 
3410 IFQ$= " THENREADC:GOTO3390 

3420 COLORC : LOCATEX , Y : PR I NTCHR$ ( UAL < ’ &h ' +Q$ ) ) : GOSUB3630 ! X=X+ 1 : GOTO3390 

3430 DAT A& , 18 , 0 , $ , 5 , 2a , 2a , 2a , 2a , 2a , $ , 4 , 26 , 26 , 26 , 26 , 26 , 26 , 20 , $ , 6 , ce , 20 

3440 DAT Ad8 , 20 , b6 , 20 , dc , 20 , b8 , 20 , dd , 20 , c9 , 20 , $ , 7 , b6 , 20 , cc , 20 , de , 20 , $ , 4 , 26 , 26 , 26 , 

26 , 26 , 26 , $ , 5 , 2a , 2a , 2a , 2a , 2a 

3450 DATA& , 7 , 3 , $ , 7 , 31 , 29, 20 , bf ,d3,bf,d3,a4 ,b6 ,cc ,de , c4,ca,c5,c6,b6, 3f 
3 5 6 b2°21 A 2 i 15 ’ 5 ’ * # 6 ’ b6 ’ cc ’ de ’ ca ’ a4 • b9 • af ' bc * c3 > a4 • dc > d9 • b2 , bl , bf , cb , de , c3 , de , ca , 

3470 DATA&,16,7,$,7,dc,b6,de,a4,b6,cc,de,da,dd,d2,b2,28,cf ,b2,ba ,dd,20 ,ce, dd.cc , 
^7 9 A?? ,c3,de,ca,a4,c0 ’ c0 * de ’ b2 > cf .a4,b6,b2,b2,dd,a6,ce,de,bc,ad,b3,cl,ad,b3,21 
3480 DAT A& , 16 , 9 , $ , 7 , bl , c5 , c0 , d3 , a4 , cf , b2 , ba , dd , b6 , cc , de , da , dd , d2 , b2 , b6 , b2 , b2 , dd , 
c6,c5,db,b3,al 

349^/ DATA&.7, 11 ,$,5, 32, 29,20, 47,41, 4d.45,c9,d9,2d,d9 

35 /. 8ATA& > 15,13,$,4,ba ,c9, 47,41. , 4d, 45,ca , a4 , ce, ce , de, a4,ce , dd,c4 ,b3,c9,b6 ,cc , d* 
lf4 , b5 , c5 , bc , de , d4 , b9 , c4 , de , a4 , cl , ae , c4 , c0 , de , b9 , a4 , cl , ac , b3 , c8 , dd , al 
?l 1 o J D oI A ?!A 7 A 15 ’*’ 2,cf > bd ' de > b5 > d/l ,ca,a4,b6,dc,d7,c5,b2,ba,c4,al,b5,d4,ca,a4,50 
43, 2d , 38, 30 , 30 , 31 ,b8 , d0 , cl , ae , b3, c3 , de , bl ,d9,al ’ 

3 oi 0 . D 5 T ?? 0 ’ 20,28 ’ b8,d0 ’ cl ’ ae,b3,ca,a4,c4 ’ c3,d3,a4 > c3 > de > d8 > b9 > 2d * c 4»c3,de,bl,d9 
,c9 ’ c2,b7,de,c6,b6,b9,c6>dd ' 28 - b5 > b7 - ac > b8 * bb » dd »29,ca,a4,34,c6 
,dd,cf ,c3,de,al,ca,df ,bd,c9,c4, b7,ca, 22, 30,22, a6,a4,b5,bd,al 

3540 0ATA&,7,19,$,4,bc,af ,cb,df ,dd,a4,b8,af ,cb,df ,dd,ca,a4,b5,d4,c9,b6,cl ,al ,20 . 
bd,c4 , da , 2d , c4 , ca , a4 ,b5, dd ,c4 , de ,da , d7,c9, a4 , b6,cl , d4 , al 

K? 50 /i°?I A !l ,7 u 21 l $ ’uA cc 4 d !’ c ? ,c9 ’ c4,b7,ca,c6 ’ b9 ’ bb ’ bc ’ c0 ' d9 * al ' be * d4 > b9 ' c4 - da *®4, 

bl , c4 , b6 , de , ba , dc , b2 , c3 , de , 7e , al 

f7 6 ?^I A ^ 7 Ao 3 A«’oA ce,b6,ca ’ a4 ’ d0 ’ c5,b2,af ,bc ' ae,d4 ’ al * 20 > c3 * de « ca * a4 «20,20,20, 

4 45 4 59 4 20 4 2i 2 *’ 20 ’ 20 ’ 20,4C ’ 55 ’ 43,4b ’ 21,20,20,26 ’ 20,20 ’ 48 ’ 49 ’ 54,20,52,45 ’ 54,20,4b 
3570 IFINKEY$=CHR$( 13 )THENRETURNELSE3570 
3580 REM *** SOUND and MUSIC *** 

3590 MM=USR0(&HFFFF): RETURN 
3600 FORI=1TO10 :MM=USR0(&H5555) :NEXT tRETURN 
3610 FORI = 1TO10 iMM=USR0( &H10F5 ) : NEXT : RETURN 
3620 FORI=1TO100 : MM=USR0 ( &H2020 ) : NEXT : RETURN 
3630 MM=USR0 ( &H5555 ) : RETURN 
3650 REM »** NUL *** 

3660 RETURN 

3670 REM *** Small replay 
3675 I FGA=9THENRETURN 

3680 LOCATES, 4 :COLOR3: PRINT V7y;\.-;GA;-a07 match r. ’ 

3690 LOCATES, 5 :C0L0R2:PRINT "'!)+“ 7 ’ ;GA+1 ; ’ f 191 )' < a“>A"D-t“, - 

3700 ERASEMY ,ME$, KA , JU,OA ,OB,OP: DIMMY( 4 ) ,ME$<4) ,KA( 4 ) , JU( 4 ) ,OA( 4 ) ,0B( 4 ) ,0P( 4 > 

3710 ERASEPE : D I MPE (4,4) 

3720 OY=0 : OA=0 : PQ=0 : PH=0 : SHOBU$= * ' : KC=0 : NB*= * ’ ; GOSUB3105 

3 n 3 Ir^RSJ =1TO3000!NEXT!LINE<5,3)-(62 ' 19) ’ ' ' .7, BF:LINE( 64,4 )-( 77,16 ), ■ 1 ,7,BF:OL 
—2 * RETURN 

3800 REM *** Game Over »** 

3801 LINE<5,3)-(74,24),‘ " ,7,BF 
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' ;NA$( I 


3802 LOCATE 10 , 3 : C0L0R2 SPRINT' SHSk. MMm. mm. Mm ■■■Hi 

3803 LOCATE 10 ,4 : PRINT ' H H Jm m HUB H 

3804 LOCATE 10 , 5 : PR I NT ' H HHSI SSH HHM 

3805 LOCATE10, 6: PRINT'S ■ H H H H H 

3806 LOCATE10, 7: PRINT "H«Hr H H H H SSHi 

3807 LOCATE10 ,8:C0L0R7:PRINT " 

3808 LOCATE30 , 9 : COLOR5 : PR INT ' H H mmm ■HBH' 

3809 LOCATE30, 10 i PRINT'S S S S S S S' 

3810 LOC ATE30.il: PR I NT'S S S S S m— MS' 

3820 LOCATE30, 12: PRINT'S S Sk m S S m’ 

3821 LOCATE30,13:PRINT"H^S' mm HISS S Hk' 

3822 LOCATE10 , 15:C0L0R7 sPRINTDF ' . 'MO(DF) - 3-» t>f!' 

3823 LOCATE 10 . 16:C0L0R6 :PRINT ' “ .4971 DIA7II HZJylVI\.Vrt,3-Z. ' 

3824 LOCATE10 , 17 : C0L0R4 S PRI NT ' t" A . Good Bye ! 

3825 C0L0R3 : FOR I = 1 T04 : LOC ATE 15 , 18+ I 

3826 IFMO( I )>10000THENPRINTUSING'& & 9> ###### d f" ###### d f“7.' 

),MO(I),MO(I)-10000 

3827 IFM0( I X 10000THENPRINTUSING"& & 9> ###### d f“ ###### d 7T9779 T*3.'{NA*<I 
) ,M0( I ) , 1 0000-MO < I ) 

3828 IFMO< I )=10000THENPRINTUSING'& & ###### d T* r7f> ? H 3o' 

3829 NEXT 

3830 LOC ATE28, 24 :C0L0R7 SPRINT' Rep lay ? ( Y=Yes / N=No. > ' ; : A$=INPUT$( 1 ) 

3831 IFA*= ' N ' ORA$= ' n ' THENPRINTCHR$< 12 ) S CONSOLE0 ,25,0,1: C0L0R7 SEND 

3832 CLEAR300 ,&HCFFF 

3833 OEFUSR0=&HEE50 s DEFUSR1=&HDBE0 : 0EFUSR2=&HDCA8 

3834 DIMTR( 40 ) , TR$( 40 ) , NA$( 4) , AD(10,20),MO(4),KI$(4) , SU$( 10 ) ,D0( 4) ,MY(4 ) ,KA( 4 ) 

3835 F0RI=1T04 :M0( I >=10000 sNEXT: Y=0 

3836 DIM0P( 4 ) , 0A( 4 ) , ME$( 4 ),PE(9,4),0B(4),JU(4) 

3837 GOTO460 

3850 REM *** Computer *»* 49* 

3851 D0( I )=INT( RND( 1 )*4 )+l 

3852 I FMO ( I > < 100 THENM Y ( I > =0 : RETURN 

3853 KZ=INT(RND(1)*(M0< I >/100 ) >+l :MY< I >=KZ*100 

3854 IFRND( 1 ) >.6ANDM0( I ) >10000THENKZ=INT(RNO< 1 >*<M0( I )/10000 ) )+l sMY( I >=KZ*1000 

3855 RETURN 

3860 REM *** Computer Judge *** 

3861 FG=0 :F0RYU=1T04 : IFDO( YUX >JTHENNEXT 

3862 IFNA$( YU)="COM ' THEN3865ELSEFG=1 s RETURN 

3863 NEXT 

3865 IFRND( 1 )< . 5THENSLI=1ELSESU=2 

3866 FG=0S RETURN 

3870 REM *** Name »** 

3871 IFNA$( 1 ) = 'COM ' THEN I FNA$ ( 4 ) < > ' COM ' THENSLIAPNA$( 1 ) ,NA$( 4 )ELSEIFNA$( 3)0 COM 
' THENSUAPNA$ ( 1 ) , NA$ < 3 ) ELSE I FNA$ < 2 ) = ' COM ' THENRETURNELSESUAPNA$ ( 1 > , N A$ ( 2 ) 

3872 IFNA$(2)="C0M 1 THENIFNA$(4)< >'COM ' THENSLIAPNA$ ( 2 ) , NA$ ( 4 )ELSE I FNA$ ( 3 ) < > ‘ COM 
' THENSLIAPNA$ (2) ,NA$<3) ELSERETURN 

3873 IFNA$( 3)= ' COM 'THENIFNA$( 4 X >"COM ' THENSUAPNA* ( 3 ) , NA$ ( 4 ) ELSERETURN 

3874 RETURN 
3880 REM 

3890 REM READY 

3900 REM ******************** finish ******************** 

3910 REM *** *** 

' C - 8 0 0 1 3 2 k *** 


3920 REM * 
3923 REM » 
3925 REM » 
3930 REM » 
3940 REM * 
3950 REM » 
3960 REM » 
3970 REM i 
3972 REM * 
3980 REM * 
3990 REM » 
4000 REM ) 
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U*M 


) DATA 2, 1,1, 1.1, 3, 3,1 
) DATA 3, 2, 1,1, 1.3, 1,1 
) DATA 3, 3, 2, 1,1, 3, 1,1 
) DATA 3, 3, 3, 2, 3, 3, 1,1 
) DATA 3, 3, 3, 1,2, 1,1,1 
> DATA 1,1, 1,1, 3, 2, 1,1 
) DATA 1,3, 3. 3, 3, 3, 2, 3 
) DATA 3, 3, 3, 3, 3, 3, 1,2 
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190 DATA 3,3, 3, 3, 3,3. 1,3, 2, 1,1, 1,1 
200 DATA 3, 3, 3, 3, 3, 3, 1,3, 3, 2, 1,1,1 
210 DATA 3, 3, 3, 3, 3, 3, 1,3, 3,3, 2, 1,1 
220 DATA 3, 3, 3, 3, 3, 3, 1,3, 3, 3, 3, 2,1 
230 DATA 3, 3, 3, 3, 3, 1,2, 3, 3, 3, 3, 3, 2 

310 DATA L,K,J,A,J,K,L,P,C,X,X,X,S,Z, T,C,H,S,H,B, I ,Z, I ,P,Z,T,P,T 
320 DATA L,K,J,X,J,K,L,P,C,X,X,C,S,Z, T , A,H,S,H,B, I ,Z, I ,P,Z,T,T,P 
330 DATA P,L,J,C,H,P,P,S,B,K,X,S,C,Z, H,X,X, J.L.T ,T,K , I , A.Z.Z.T, I 
340 DATA P,P,X,A,X,H,P,S,C,L,X,S,B,L, T.K, J,T,K, J,C, I ,H,Z,Z,Z, I ,T 
350 DATA P,P,T,A,T,X,L,B,X,S,T,S,C,H, I ,L,C,Z, J,X, I ,K, J,Z,P,Z,K,H 
360 DATA P,X,B,C,A,X,P,Z,K,P,C,S,J,K, L, I ,S,X,L, J, I ,H,T,Z,Z,H,T,T 
370 DATA L,Z,J,B,J,K,L,P,C,X,X,X,S,Z, T,C,H,S,H,A, I ,K, I ,P,Z,T,P,T 
380 DATA P,L,J,X,H,P,P,S,B,K,X,S,C,H, Z,X,C, J,L,T,T,K, I , A.Z.Z.T, I 
390 DATA P,X,P,B,X,H,P,S,C,X,L,S,A,J, T ,K,Z,T,K, J.C, I ,H,Z,Z,L, I ,T 
400 DATA P,A,T,P,T,S,L,Z,X,S,T,X,C,H, I,L,Z,Z,J,X,I,K,J,C,P,B,K,H 
500 CLEAR 1000: PRINT CHR*<12> 

510 WIDTH 40 ,25: CONSOLE 0,25,0,0:C=0 

513 LOCATE 9,12:PRINT "Play Gunji shougi *: LOCATE 18,24:PRINT ‘Hit any key!!* 

515 A=RND ( 1 ) : A*= I NKE Y* : I F A*=” THEN 515 

517 BEEP1 :FOR 1=1 TO 100: NEXT :BEEP0 

520 GOSUB 1000 ' hensuu kakuho 

527 BEEP1 :FOR 1=1 TO 100 : NEXT: BEEP0 

530 GOSUB 2000' in it 

537 BEEP1 :FOR 1=1 TO 100: NEXT :BEEP0 

540 GOSUB 3000 'com sakusen 

547 BEEP1 :FOR 1=1 TO 100 : NEXT : BEEP0 

550 GOSUB 4000 'you sakusen 

560 C=C+1 : ON <TURN+3)¥2 GOSUB 20000 , 30000 ' you 'com 
570 ON (FLAG+1 ) GOSUB 13000 , 5000 , 12000 ' y moue'crush'c move 
580 GOSUB 50000: 'GAME OVER 
590 IF C MOD 6=0 THEN GOSUB 8000 'scan 
600 TURN=-TURN : GOTO 560 
1000 ' 

1010 Y*=* * :C*=* * : KOMA$= " ABCTPXSH I JKLZ * :A*=* * :S1KUSEN*=* * :S2KUSEN*=* * :OX*=* * :0Y*= 
1020 DEFINT A-Z 

1030 X=0 : Y=0 : OX=0 : OY=0 : GX=0 : GY=0 : QX=0 :QY=0:P=0:P1=0: Q=0 : A=0 : K=0 : KK=0 : N=0 : NO=0 : I = 
0 : J=0 : 1 1 =0 : J J=0 : 1 3=0 : J3=0 : FLAG=0 : FRAG=0 : TURN=0 

1040 HI KO=0 : HCKO=0 : J I RA I =0 : TA I =0 : CHU=0 : SPY=0 : TEK I =0 : KM=0 : K I =0 : K J=0 : KX=0 : KY=0 : VM= 

0 : V I =0 : V J=0 : VX=0 : VY=0 : DI S=0 : LAS=0 : AD=0 : DAME=0 : TCBU=0 : TYBU=0 : IRU=0 

1050 DIM F( 28 ) , HANTE 1(13,13), TEK 1(7,8) ,C0M*( 7,8 > , YOU*< 7, 8 ) , TEKIG0MA*<28) 

1060 FORI =1T013 : F0RJ=1T013 : READA : HANTE I ( J, I )=A: NEXT : NEXT 
1070 RETURN 
2000 ' 

2005 S1KUSEN*= * ABCCTTTPPPXXXSSHH 1 1 J JKKLLZZZ * : S2KUSEN*=S1KUSEN* : C*= * * : Y*= * * : H I KO= 
3 : HCK0=3 : JI RA I =3 : TAI =0 : CHU=0 : SPY=2 : KK=50 
2010 GOSUB 40000 

2020 F0RI=1T07:F0RJ=1T08:C0M*( I , J)=*V" :YOU$< I , J)=‘V* :TEKI( I , J)=0: NEXT: NEXT 

2040 F0RI=1T028:TEKIS( < ( 1-1 )M0D7)+1 , ( < 1-1 )¥7>+5>=I :TEKIGOMA*( I )=S1KUSEN*:F( I )=0: 

NEXT 

2060 RETURN 
3000 ' 

3005 NO=INT (RND( 1 )#10+1 ) 

3010 ON NO GOTO 3020,3030,3040,3050,3060,3070,3071,3072,3073,3074 

3020 RESTORE 310: GOTO 3080 

3030 RESTORE 320: GOTO 3080 

3040 RESTORE 330: GOTO 3080 

3050 RESTORE 340: GOTO 3080 

3060 RESTORE 350: GOTO 3080 

3070 RESTORE 360: GOTO 3080 

3071 RESTORE 370: GOTO 3080 

3072 RESTORE 380: GOTO 3080 

3073 RESTORE 390: GOTO 3080 

3074 RESTORE 400: GOTO 3080 

3080 F0RJ=1T04 : F0RI=1T07 : READ A*:COM*( I , J)=A*: NEXT: NEXT 

3085 FOR I=1T03 

3086 I I=RND( 1 )*7+l : JJ=RND( 1 )*2+2 

3087 I3=RND( 1 )*7+l : J3=RND( 1 )*3+l 

3088 SWAP COM* C 1 1 , J J ) , COM* < 1 3 , J3 ) 

3089 NEXT 

3090 RETURN 
4000 ' 
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4005 X=3: Y=8iNO=0 

4010 GOSUB 4100 

4020 GOSUB 4200 

4030 LOCATE GX, GY {PRINT A*; 

4040 NO=NO+l 

4050 IF N0<28 THEN 4010 

4060 LOCATE 5,23: INPUT ' t>f ■■ y/n * ;A* 

4070 IFA*= ' y ' THENTURN=1ELSE TURN=-1 : FLAG=8 
4080 L0CATE5, 23 SPRINT SPC(30> 

4090 RETURN 

4100 X=X+1 : IFX=8 THENX=1:Y=Y+1:IF Y=9 THENY=5 

4110 IF YOU*( X , Y )< > " V ’ THEN4100 

4120 GOSUB 6000 

4130 LOCATE GX, GY {PRINT ‘* - j 

4140 A*=INKEY*: IF A*=" THEN 4140 

4150 IF A*< >CHR*( 13) THEN PRINT CHR*(29>; - '{{GOTO 4100 

4160 RETURN 

4200 L0CATE6 , 22 : N=1 

4210 PRINT CHR*(29) ; ' “* ; 

4220 A*=INKEY*{ IF A*="' THEN 4220 
4230 IF A$=CHR*( 13 ) THEN 4260 

4240 N=N+1 s IF N>LEN(S1KUSEN*) THEN PRINT CHR*<29>;' - ;sGOTO 4200 
4250 GOTO 4210 

4260 A$=M I D*< S1KUSEN* , N , 1 ) s I FA* = * X * ANDY=5ANDXM0D4=2THENBEEP S GOTO 4220 
4270 PRINT CHR*(29) ; ' 

4280 S1KUSEN*=LEFT*< S1KUSEN* , N-l )+RIGHT*< S1KUSEN* , LEN( S1KUSEN* )-N ) SL0CATE6 , 21 : PR 
INT S1KUSEN*; " ' 

4290 YOU*( X , Y )=A* 

4300 RETURN 
5000 " crush 

5010 GOSUB 5100 sON HANTEI GOSUB 5200 ,5300 , 5400 'com win'drau'you uin 
5020 RETURN 
5100 ' 

5110 P=INSTR(KOMA$, YOU$(X, Y) ) 

5120 Q= I NSTR ( KOMA* , COM* ( X , Y ) ) 

5130 HANTEI=HANTEI5£(P,Q> 

5140 RETURN 
5200 ' 

5210 Y*=Y*+YOU*(X,Y) {GOSUB 5500 
5220 GOSUB 8500 

5230 TEKI5S(X,Y)=0:YOU*<X,Y)='V 

5240 GOSUB 12000 

5250 L0CATE6, 21 {PRINT Y* 

5260 RETURN 
5300 ' 

5310 C*=C*+COM*(X,Y):Y*=Y*+YOU*(X,Y){ GOSUB 5500: GOSUB 5600 
5320 GOSUB8500 

5330 TEKI5JCX, Y )=0 :COM*( X , Y ) = * V ‘ s YOU*( X, Y ) = " V’ 

5340 GOSUB 15000 
5350 PRINT ‘ ' 

5360 L0CATE6.1 {PRINT C* 

5370 L0CATE6, 21 {PRINT Y* 

5380 RETURN 
5400 ' 

5405 C*=C*+COM*(X,Y> : GOSUB 5600 
5410 COM* (X,Y)="V":N=TEKI(X,Y) 

5420 FOR I=1T028 

5430 IF M I 0* ( S2KUSEN* ,I,i)="V" THEN 5460 

5440 IF HANTEIS<INSTR(K0MA*,MID*(S2KUSEN*,I,1)),Q)=3 THEN 5460 
5450 MID*( TEKIGOMA*( N ) , 1 , 1 ) = " ‘ 

5460 NEXT 

5470 GOSUB 13000 

5480 L0CATE6.1 {PRINT C* 

5490 RETURN 
5500 ' 

5505 I F YOU* < X , Y ) = ‘ P ' THENH I KO=H I KO- 1 
5510 IF YOU*(X, Y)=" A" THEN CHU=1 

5520 IF YOU*( X , Y > = ’S" THEN SPY=SPY-lsIF SPY=0 THEN TAI=1 
5530 RETURN 
5600 ' 

5605 I FCOM* (X,Y)="P"THEN HCK0=HCK0-1 :C=6 ,, L « 

5610 IF COM*(X,Y) = "X‘ THENJIRAI=JIRAI-1 v a rfe 1 
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5620 RETURN 
6000 'X 

6010 IFYMTHEN6030 
6020 GY=Y*2+1 ‘GOTO6040 
6030 GY=Y*2+3 
6040 GX=2*X 
6050 RETURN 
6100 'OX 

6110 IFOY>4THEN6130 
6120 QY=0Y*2+1 :GOTO6140 
6130 QY=0Y*2+3 
6140 QX=0X*2 
6150 RETURN 

7000 TEK I =0 s FOR I =3T05 : TEK I ( 1 , 0 ) =0 : NEXT 
7010 F0RJ=1T04 
7020 F0RI=1T03 

7030 IF COM*( I , J)="V‘THEN7050 
7040 TEKI ( 3 , 0 )=TEKI < 3,0 ) + l 
7050 NEXT I 
7060 F0RI=5T07 

7070 IF COM*( I , J)=’V‘THEN7090 

7080 TEK I ( 5 , 0 ) =TEK I ( 5 , 0 ) +1 

7090 NEXT I 

7100 F0RI=1T07 

7110 IF TEKI ( I , J)=0THEN7130 

7120 TEKI=TEKI+1 

7130 NEXTI 

7140 NEXTJ 

7150 IF ABS< TEKI (3,0 )-TEKI ( 5,0)) >4THEN TEKI ( 4 ,0 )=SGN( TEKI ( 3, 0 5-TEKI (5,0 ) ) 

7180 GOSUB 7400 

7190 TEKI=TEKI+HIKO*1000 

7200 IF TEKI¥100=11 AND FLAG=7 THEN TEKI=TEKI MOD100 
7210 COM=0 

7220 F0RI=1T07:F0RJ=5T08 

7230 IF COM* < I , J )= ‘ V ' THEN 7250 

7240 COM=COM+l 

7250 NEXT: NEXT 

7260 IF SH0U>3 THEN 7300 

7270 SHOU=0 

7280 FOR I=1T028 : IFABS(F( I ) )=3 THEN SHOU=SHOU+l 
7290 NEXT 
7300 RETURN 

7400 F0RI=3T05:F0RJ=1T02 
7410 IF( I+J )MOD2=1THEN7430 

7420 IF TEKI< I , J)>0THEN TEKI=TEKI+100 : IF F< TEKI ( I , J) )=4 AND COM* ( 4 , 1 X ‘ D’ THEN 
FLAG=7 

7430 NEXTJ i NEXT I : RETURN 
8000 ' 

8010 GOSUB8100 : GOSUB8200 : RETURN 

8100 FOR P1=1T028: IF MID*(S2KUSEN*,P1,1) = 'VTHEN 8170 '?? scan 

8110 A=0 

8120 FOR I=1T028 

8130 IF M I D$ ( TEK I GOMA* (I),P1,1)=* ‘THEN8150 
8140 A=A+1:N=I:IFA>1THEN8170 

8150 NEXT I 

8160 IF A=1THEN GOSUB8600 :GOSUB8750 
8170 NEXT PI 
8180 RETURN 

8200 FOR N=1T028: IF F<N)>0 THEN8330 '3D scan 

8210 A=0 

8220 FOR I=1T028 

8230 IF MID*< TEKIGOMA*< N) ,1,1) = ’ ’THEN 8250 
8240 A=A+1:P1=I:IFA>3THEN8330 

8250 NEXT I 

8260 IF A=1 THEN GOSUB 8700:GOSUB 8650:GOTO 8330 
8270 1=1 

8280 IFMID$(TEKIGOMA$(N ) ,1,1)=’ * THEN I=I+l:GOTO 8280 

8290 IF M I D* ( S2KUSEN* ,1,1 )=MID*( S2KUSEN* , PI , 1 ) THENGOSUB8700 : GOSUB8600 

8300 IF Pl<5 THEN F(N)=-3 

8330 NEXT N 

8340 RETURN 

8500 'A“U5> 
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8510 N=TEKI(X,Y) s IF F(N) >0THEN8550 
8520 P1=INSTR( S2KUSEN$, YOU$( X , Y ) ) 

8530 GOSUB8600 ' 33c 1 ear 

8540 GOSUB8700 '??clea r 

8550 RETURN 

8600 ' 33c 1 ear 

8610 FOR I=1T028 

8620 IF I=P1 THEN 8640 

8630 MID$( TEKIGOMA$( N ) , I , 1 )=’ * 

8640 NEXT 
8650 F(N)=1 

8660 IF Pl<5 THEN F(N)=3 

8670 IF 7<P1 AND P1<11 THEN F(N)=4 

8680 RETURN 

8700 '??clear 

8710 FORI=1T028 

8720 IF I=N THEN 8740 

8730 MID$( TEKIGOMA$( I ) ,P1 , 1 )= " * 

8740 NEXT 

8750 MID*<S2KUSEN$,P1,1)=‘V 
8760 RETURN 
10000 'Ilf AD? 

10010 P=INSTR( KOMA$ , COM$( I , J) ) 

10020 N=0 : A=0 

10030 A$=TEK I GOMA$ ( TEK I ( X , Y ) ) 

10040 IFP=13 THENIF I NSTR ( A$ , ‘ X ’ ) >0THEN K=91sG0T0 10160 

10050 IFP<4 THENIF INSTR< A$, ’X’ ) >0 ANDRND( 1 ) >.05 THEN K=0 sGOTO 10160 

10060 FOR K=1T028 

10070 IF MIO$(A*,K,l>=* ‘ THEN10120 
10080 Q=INSTR(KOMA*,MID$(A$,K,l>) 

10090 HANTE I =HANTE I ( P , Q ) 

10100 N=N+2s IF HANTE I =2 THEN A=A+1 
10110 IF HANTE I =3 THEN A=A+2 
10120 NEXT 

10130 IF P>7 AND P<13 THENIF A>4 THEN K=86+PsG0T0 10160 

10140 IF P=7 THENIF N=2ANDA>0 THEN K=100 sGOTO 10160 

10150 K=A*100/N 

10160 RETURN 

12000 GOSUB 15000 

12010 PRINT 

12020 RETURN 

13000 GOSUB 15000 

13010 PRINT YOU$( X , Y ) 

13020 RETURN 
15000 GOSUB 6000 

15005 BEEPlsFOR 1=1 TO 100s NEXT :BEEP0 
15010 LOCATEQX.QY SPRINT - ' 

15020 LOCATE GX , GY SC0L0R2 SPRINT ‘ ? ' ; COLOR0 s GOSUB 7000SFOR 1=1 TO 200s NEXT 
15025 BEEPlsFOR 1=1 TO 100 S NEXT SBEEP0 
15030 LOCATEGX.GY 5 RETURN 

20000 IF FLAG=8 THEN 0X=4»(RND< 1 X .5)+6sOY=4sX=OXs Y=5sGOTO20130 
20010 LOCATE20, 18 SPRINT <77 ‘ sOK=0 SGOSUB21000 ' 

20020 IF OK=0 THENGOSUB 21500 ' t3-+ K9H9 
20030 IF OK=0 THENGOSUB 22000' Art” A 
20040 IF OK=0 THENGOSUB 22500' t3-* 

20050 IF OK=0 THENGOSUB 23000 't3-+ f “A 
20060 IF OK=0 THENGOSUB 24000'$.“ S' > 

20070 IF OK=0 THENGOSUB 25000' t3 -tf't'M 
20080 IF OK=0 THENGOSUB 25500'»+39 

20090 IF OK=0 THENGOSUB 26000 ' fff 

20100 IF OK=0 THENGOSUB 27000 ' 99A 

20110 IF OK=0 THENGOSUB 27500'77A 

20120 IF OK=0 THENGOSUB 28000 'rnd 

20130 GOSUB6000 s GOSUB6100 
20135 BEEPlsFOR 1=1 TO 100 s NEXT SBEEP0 
20140 LOCATEQX.QY sC0L0R2sPRINT ■■'sCOLOR0 
20150 SWAP COM$(OX,OY),COM*(X,Y) 

20160 FLAG=l-( YOU$( X , Y )=" V" ) 

20170 RETURN 

21000 IF TEKI < 4 , 8 )< >0 THEN RETURN 
21010 F0RI=3T05sF0RJ=7T08 
21020 IF( I+J)MOD2=0 THEN21040 


59 




21030 IFC0M$( I , JX > " V“THEN21070 
21040 NEXT :NEXT 
21050 IF HCKO=0 THEN RETURN 
21060 GOSUB 28500 

21070 OX= I : 0Y=J : X=4 : Y=8 : OK=l s RETURN 
21500 ' 

21510 IF HCKO0 THENRETURN 
21520 GOSUB 28500 

21530 X=4:Y=8: GOSUB 10000 : IFK<KK+45THENRETURN 

21540 IF I¥J=4 THENIF K<100 AND TEK I ¥100 >0THENRETURN 

21550 0X= I : OY=J : X=4 : Y=8 : OK=l : RETURN 

22000 IF COM$( 4 , 1 X > " V" OR LEN ( C$ ) + J I RA I =27THENRETURN 

22010 IF TEKI ¥100=0 THENRETURN 

22020 F0RI=3T05:F0RJ=1T02 

22030 IF( I+J)M0D2=1 THEN22060 

22040 IF COM$ ( I , J ) = " X ‘ THEN22060 

22050 IF COM$( I , JX >* V" THEN22090 

22060 NEXT: NEXT 

22070 IF HCKO=0 THEN RETURN 

22080 GOSUB 28500 :TCBU=0 

22090 OX=I :0Y=J:X=4: Y=1 :OK=l : RETURN 

22500 IF TCBU=0THENRETURN 

22510 IF COM$ ( VX , VY K > ' P ‘ THEN TCBU=0 : RETURN 

22520 OX=VX : OY=VY : GOSUB28700 : 1 FDAME=1 THENX= 1 1 : Y= J J : TCBU=0 : OK=l : RETURN 
22530 X= I : Y=J: VX=X : VY=Y : OK=l : RETURN 
23000 IF HCKO=0 THENRETURN 

23010 IF SH0U<3 THEN IF HIKO>=HCKO OR RND(1X.8 THENRETURN 

23020 IF SH0U=4 AND ABS(F(TEKI (4,8) ) X >3 THEN 21060 

23030 GOSUB28700 : IF DAME=1THENRETURN 

23040 X= I : Y= J : VX=X : VY=Y 

23050 GOSUB28900 : IF TCBU=0THEN RETURN 

23060 OK=l : RETURN 

24000 IF TEKI MOD 100=0 THEN RETURN 

24010 KM=0 : VM=0 :ZM=0 

24020 F0RX=1T07:F0RY=1T04 

24030 IF TEKI ( X, Y )=0 THEN24150 

24040 FOR I=X-1T0X+1 : IF 0=IMOD8 THEN 24140 

24050 FOR J=Y-1 TOY+1 : IF 0=JMOD5 THEN 24130 
24060 IF 0<> ( X-I )*( Y-J ) THEN 24130 

24070 IFCOM*( I , J)=‘X‘ORCOM$( I , J)="P" ORTEKI ( I , JX >0THEN24130 

24080 IFCOM$( I , JX >‘ V" THEN 24100 

24090 IF F(TEKI (X, Y) )=4 AND RND<1)>.5 THEN 24130 ELSEGOSUB 24500:GOTO 24130 
24100 IF TEKI¥100 >1 ANDI=4ANDJ=1THEN24130 
24110 GOSUB 10000 '»?»»? 

24120 IF K>KM THEN KM=K:KI=I :KJ=J:KX=X:KY=Y 
24130 NEXT J 
24140 NEXT I 
24150 NEXT :NEXT 

24160 I FZM >90 ANDKM< 50ANDVM< 60 THEN24220 

24170 IF KM>VM-10 THEN24190 

24180 IF VM>KK+10 THEN24200 ELSERETURN 

24190 IF KM>=KK THEN24210 ELSERETURN 

24200 OX=V I : OY=VJ : X=VX : Y=VY : OK=l : RETURN 

24210 OX=K I : OY=K J : X=KX : Y=KY : OK=l : RETURN 

24220 OX=Z I : OY=Z J : X=ZX : Y=ZY : OK=l : RETURN 

24500 FORI I=I-1T0I+1 

24510 IF 0=1 IM0D8 THEN 24610 

24520 F0RJJ=J-1T0J+1 

24530 IF 0=JJMOD5 THEN 24600 

24540 IF COM$( 1 1 » JJ)= ‘ X'ORCOM$( 1 1 , JJ) = "P‘OR 1<>ABS( 1 1 — I )+ABS( JJ-J) ORTEKKII.J 

J)>0 THEN 24600 

24550 IF TEKI¥100>0 AND I I=4ANDJJ=1THEN 24600 

24560 IFCOM$( 1 1 , JJ) = " V THENGOSUB24700 :GOTO 24600 

24570 SWAP 1 1 , 1 :SUAP JJ,J 

24580 GOSUB10000: IFK>VM THENVM=K : V I = I : V J= J : V/X= 1 1 : VY= J J 

24590 SWAP 1 1, 1: SWAP JJ,J 

24600 NEXTJJ 

24610 NEXT I I 

24620 RETURN 

24700 F0RI3=II-1T0II+1 

24710 IF 0=I3MOD8 THEN 24810 

24720 F0RJ3=JJ-1T0JJ+1 
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24730 IF 0=J3MOO5 THEN 24800 

24740 IF COM$( I 3 , J3 ) = " X ' ORCOM* ( 1 3 , J3 ) = " P " OR 1< >ABS ( 1 1 - 1 3 ) +ABS ( J J- J3 ) ORTEKI ( 13 

, J3 ) >0 THEN 24800 

24750 IF TEKI¥100>0 AND I 3=4AND J3=1THEN 24800 
24760 IFCOM$( 13, J3)="V‘ THEN 24800 
24770 SWAP 13,1 :SUAP J3,J 

24780 GOSUB10000 : IFK>ZM THENZM=K : Z I = I : Z J= J ! ZX= 1 1 s Z Y= J J 

24790 SWAP 13, I: SWAP J3,J 

24800 NEXTJ3 

24810 NEXTI3 

24820 RETURN 

25000 IF TYBU=0 OR HCKO=0 THEN RETURN 

25010 TYBU=0 : IF INSTR(KOMA$,RIGHT$(C$,l) )>9 THEN RETURN 

25020 GOSUB 28900: IF TCBU=0THEN RETURN ELSE TCBU=0 

25030 FOR X=1 T07:F0R Y=1 T04 

25040 IF F < TEKI ( X , Y ) )=4 THEN OK=l : RETURN 

25050 NEXT: NEXT: RETURN 

25500 IF TEKI ( 4 , 0 )=0 OR RND(1)>.5 THEN RETURN 

25510 FOR X=4+TEKI (4,0 ) TO 4-TEKK4.0) STEP-TEKI ( 4 ,0 ) 

25520 FOR Y=1T04 

25530 IF COM$(X, Y )< >YOU$( X, Y ) THEN 25600 
25540 I=X-TEKI (4,0): J=Y 

25550 IF COM$( I , J)='V" OR COM$( I , J)=‘X" THEN 25570 

25560 IF I * J=4ANDTEK I ¥100 >0THEN25580 ELSE 25610 

25570 IF Y=4THEN25600 
25580 I=X: J=Y+1 

25590 IF COM*(I,J)='V OR COM$( I , J)='X" THEN 25600 ELSE 25610 

25600 NEXT: NEXT: RETURN 

25610 OX=I :OY=J:OK=l :RETURN 

26000 IF RND( 1 ) >.5THENFLAG=1ELSEFLAG=-1 

26005 IF COM=0 THEN RETURN 

26010 KM=0:VM=0:ZM=0 

26020 F0RI=1T07 : F0RJ=5T08 

26030 IF COM$( I , J)=*V'THEN26150 

26040 FOR X=I-FLAG TOI+FLAG STEP FLAG: IF 0=XMOD8 THEN 26140 
26050 FOR Y=J-1 TOJ+l:IF 4=YM0D5 THEN 26130 
26060 IF 0< XX-I )*( Y-J )ORCOM$( X, Y)< >" V THEN 26130 
26070 IF TKI (X,Y)< >0 THEN 26100 

26080 GOSUB 26500: IF AD=1 THEN AO=0 :GOTO26200 ELSE26130 
26100 GOSUB 10000 : IF X*Y=32 AND K>49 THEN 26200 
26110 GOSUB 26900 

26120 IF K>KM THEN KM=K:KI=I :KJ=J:KX=X:KY=Y 
26130 NEXT Y 
26140 NEXT X 
26150 NEXT: NEXT 

26160 I FZM >90 ANDKM< 50ANDVM< 60 THEN26230 

26170 IF KM>VM-10 THEN26190 

26180 IF VM>KK+10 THEN26210 ELSERETURN 

26190 IF KM>=KK THEN26220 ELSERETURN 

26200 OX=I :OY=J:OK=l:RETURN 

26210 OX=V I : OY=V J : X=VX : Y=VY : OK=l : RETURN 

26220 OX=K I : OY=K J : X=KX : Y=KY : OK=l : RETURN 

26230 OX=Z I : OY=Z J : X=ZX : Y=ZY : OK=l : RETURN 

26500 FORI I=X-FLAG TOX+FLAG STEP FLAG 

26510 IF 0=1 IM0D8 THEN 26640 

26520 FORJJ=Y-lTOY+l 

26530 IF 4=JJM0D5 THEN 26630 

26540 IF 0<>< II-X>*< JJ-Y) ORCOM$( 1 1 , JJX >‘ V" THEN 26630 

26550 IFTEKI ( 1 1 , JJ )< >0 THEN 26580 

26560 IF I I*JJ=32 THEN AD=1: RETURN 

26570 GOSUB 26700: IF AD=1THEN RETURN ELSE 26630 

26580 SWAP 1 1 , X : SUAP JJ,Y 

26590 GOSUB10000 : IF X*Y=32 ANDK>49 THENVM=0 : KM=0 : K=10 1 
26600 GOSUB 26900 

26610 IFK>VM THENVM=K : VI=I : VJ=J:V/X=I I : VY=JJ 

26620 SUAP I I, X: SUAP JJ,Y 

26630 NEXTJJ 

26640 NEXT 1 1 

26650 RETURN 

26700 FORI 3= 1 1 -FLAG TO I I+FLAG STEPFLAG 
26710 IF 0=I3MOD8 THEN 26840 

26720 F0RJ3=JJ-1T0JJ+1 1 * h ™ ' 





26730 IF 4=J3M0D5 THEN 26830 

26740 IF 00(1 I-I3)*( JJ-J3) 0RC0M*( 13 , J3X >' V THEN 26830 

26750 IFTEKI ( 13, J3)< >0 THEN 26780 

26760 IF I3*J3=32 THEN AD=1 : RETURN 

26770 GOTO 26830 

26780 SWAP 13, X :SUAP J3,Y 

26790 GOSUB10000 : IF X*Y=32 AND K>49 ANDVMC101 THEN K=100 : VM=0 : KM=0 : ZM=0 
26800 GOSUB 26900 

26810 IFIOZM THENZM=K:ZI=I :ZJ=J:ZX=I3:ZY=J3 

26820 SWAP 13. X :SUAP J3,Y 

26830 NEXTJ3 

26840 NEXT 1 3 

26850 RETURN 

26900 DIS=ABS(X-4)+ABS( Y-8) : IF DIS<3 THEN K=K+10*(3-DIS) 

26910 RETURN 
27000 '7?ft 

27020 FOR I I=4-2*FLAGT04+2*FLAGSTEPFLAG*4 
27030 IF COM$( 1 1 ,5 X > " V" THEN27100 
27040 IF YOU$( 1 1 , 4 )< >’ V" THEN27100 
27050 IF COM*( 11,4 )='V"THEN27100 

27060 IF COM*( 1 1 ,4) = ‘A' THEN IF TAI=0 AND RND(1)>,1 THENRETURN 

27070 IF COM*( 1 1 ,4 )= 'B‘ THEN IF CHU=0 AND RND(1)>.1 THENRETURN 

27080 I = I I : J=4:X=II :Y=5: IF YOU* ( X , Y ) =COM* ( X , Y ) THEN 27110 

27090 GOSUB10000: IFIOKK THEN 27110 

27100 NEXT 1 1 : RETURN 

27110 OX=I :0Y=J:0K=1 : RETURN 

27500 IF RND( 1 ) >.5THENFRAG=1ELSEFRAG=-1 

27510 '77U 

27520 F0RX=4-2*FRAG TO 4+2«FRAG STEP FRAG*4 : FLAG=SGN ( X-4 ) 

27530 IF COM* ( X , 4 ) = ‘ V " THEN 27570 
27540 FOR I =X-FLAGTOX+FLAG STEP FLAG«2 

27550 IF COM*( I ,4)='V* THEN Y=4:0Y=4:SUAP X,IsOX=I: GOTO 27620 

27560 NEXT I 

27570 F0RY=7 T01 STEP-1 

27580 IFCOM* ( X , Y ) < > YOU*( X , YITHEN27610 

27590 IFY<>4 THEN A*=COM*( X+FLAG, Y ) : IF A*<>*V AND ( A*< > ‘ A'ORTAI >0 ) AND ktO'X.' 
AND ( A*< >'B‘0RCHU=1 ) THEN GOSUB28300 : IF IRU=0 THEN OX=X+FLAG:OY=YiGOTO 27620 
27600 IF Y>1THEN IF COM*( X , Y-l )< > * V AND ( COM$( X, Y-l X >' A ’ OR TAI=1) AND COM* 
(X,Y-1K>‘X‘ AND < COM*( X , Y-l X > 'B " OR CHU=1 ) THEN GOSUB28300 : IF IRU=0 THEN OX=X: 
0Y=Y-1 :GOTO 27620 
27610 NEXT: NEXT: RETURN 
27620 0K=1: RETURN 
28000 'rnd 

28010 FRAG=SGN( TEKI ( 5, 0 )-TEKI ( 3,0 ) ) s IF FRAG=0 THEN IF RND ( 1 ) > . 5THENFRAG=1ELSEFRAG 
28020 N=0 : I = INT <RND( 1 )#7 ) + l : J=INT( RND( 1 )*8)+l 

28030 IF COM*( I , J)=‘V'ORCOM*< I , J)=‘X'OR( I=4ANDJ=1ANDTEKI¥100>0 )THEN 28150 

28040 FOR X= I -FRAGTO I +FRAGSTEPFRAG 

28050 IF 0= XM0D8 THEN 28140 

28060 FOR Y=J+1T0J-1 STEP -1 

28070 IF 0= YM0D9 THEN 28130 

28080 IF 0<> (X-I )#( Y-J) THEN28130 

28090 IF J*Y=20 THEN IF Y=50RXM0D4< >2 THEN28130 

28100 IFCOM*( X , Y X >YOU*( X , Y ) THEN 28130 

28110 IFLAS=0THEN GOSUB 28300: IF IRU=0 THEN 28180 ELSE 28130 
28120 LAS=0 :GOTO 28180 
28130 NEXTY 
28140 NEXTX 

28150 N=N+1 : I=I+FRAG: IFIMOD8=0 THENI=ABS( 7-1) : J=J-1 : IF J=0 THEN J=8 

28160 IF N=56 THEN LAS=1:G0T0 28010 

28170 GOTO 28030 

28180 0X=I:0Y=J:0K=1: RETURN 

28300 IRU=0 : IF Y>4 THENRETURN 

28310 FOR II=X-1 TOX+1 : IF II MOD8=0THEN 28350 

28320 FOR JJ=Y-1 T0Y+1:IF JJ MOD5=0THEN 28340 

28330 IF TEKI ( 1 1 , JJ) >0 THEN IF F( TEKI < 1 1 , JJ) )M0D4 < >0 THEN IRU=1 

28340 NEXTJJ 

28350 NEXT 1 1 

28360 RETURN 

28500 F0RJ=8T01 STEP-1 :F0RI=1T07 
28510 IF COM*( I , J)= ' P ' THEN RETURN 
28520 NEXT: NEXT 

28700 N=0:DAME=0:I=INT(RND(l)*3)+3:J=INT(RND(l)»2X-7 
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28710 IFTEKI ( I , J)=0THEN 28850 
28720 IF ABS<F<TEKI< I, J>» >2 THEN 28850 
28730 IF SHOU< 4 ANDI*J=32 THEN28850 

28740 FOR X=I-1T0I+1 

28750 IF XMOD8=0THEN 28830 

28760 FOR Y=J-1T0J+1 

28770 IF YMOD9=0THEN 28820 

28780 IF < X-I )»< Y-JX >0 THEN28820 

28790 IF TEKI<X,Y)=0 THEN 28820 

28800 IF X#Y=32 THEN IF HCK0>1 THEN28820 ELSE28850 

28810 IF ABS < F ( TEK I < X , Y ) ) ) =3THEN28850 

28820 NEXTY 

28830 NEXTX 

28840 RETURN 

28850 N=N+1 I J= J+l : IFJ=9 THENJ=1 : I=I+ls IFI=8 THEN 1=1 
28860 IF N<56 THEN 28710 
28870 DAME=1 : RETURN 

28900 FOR JJ=8T01STEP-1 :FORI I=1T07: IF II=4AN0JJ=1 AND TEKI¥100>0 THEN28920 
28910 IF COM$( 1 1 , JJ)= ' P ‘ THEN OX= 1 1 i OY= J J s VX=X s VY=Y S TCBU=1 S RETURN 
28920 NEXT: NEXT :TCBU=0i RETURN 
30000 TYBU=0 : LOCATE20 , 18:PRINT SPC<15)i 

30010 LOCATE 20,18: INPUT * FV 17 * ;OX*,OY* :OX=VAL<OX$) :OY=VAL<OY*> 

30020 I FOX< 10R0X >70R0Y< 10R0Y >8THEN30000 

30030 IF YOU# < OX , OY ) = " X " ORYOU$< OX , OY )= " V ’ THEN30000 

30040 GOSUB 6100 

30050 LOCATE QX , QY : C0L0R2 : PR I NT YOU# < OX , OY ) : COLOR0 
30060 LOCATE20 , 18 : PR I NT SPC<15)J 

30070 LOCATE 20,18: INPUT F” 3 A ' ;OX#.OY#:X=VAL<OX$) : Y=VAL<OY* ) 

30080 IFX< 10RX>70RY< 10RY>8 THEN 30060 

30090 IF YOU$<X, Y)=‘V* THEN30110 

30100 LOCATE QX,QY:PRINTYOU$<OX,OY):GOTO30000 

30110 IF ABS < OX-X ) +ABS < OY- Y ) = 1 AND < OY* Y< >20ORXMOO4=2 ) THEN30 1 40 

30120 IF YOU# < OX , OY ) = " P " THEN TYBU=1 :GOTO 30140 

30130 LOCATE QX,QY:PRINTYOU$<OX,OY> :GOTO30000 

30140 SWAP TEKmOX,OY),TEKI5{<X,Y>:N=TEKI<X,Y> 

30150 MID$< TEKIGOMA$< N ) , 11 ,3) = ' 

30160 SWAP YOU$< OX ,OY ) , YOU$< X, Y > 

30170 IF TYBU=1 THEN GOSUB 8500 
30175 BEEP1 :FOR 1=1 TO 100 : NEXT: BEEP0 
30180 FLAG=l+<COM#<X,Y)=*V* > 

30190 RETURN 

40000 PRINT CHR$< 12 ) " gamen 
40010 PRINT 'Dead* 

40020 PRINT - i‘ 


40030 PRINT * A 

40040 PRINT ’ I I I I I t - * — I B 

40050 PRINT ' C :5395*39 

40060 PRINT ' I I I I I I ■ * — I T 

40070 PRINT • P 

40080 PRINT ‘ 111111*1 X 

40090 PRINT ‘ S :ZI\°-r 

40100 PRINT ' 1 1 1 ' 1 1 , - J H \9V. f 

40110 PRINT * IXI IXI I :fi 99 

40120 PRINT ’ — ' J 

40130 PRINT ' I I I I I I I I K :9YY 

40140 PRINT ’ I I I I I I * * L SfiO <' 

40150 PRINT ‘ I I I I I I I I Z 

40160 PRINT ' I I I I I I * I' 

40170 PRINT *11111111’ 

40180 PRINT * I — I — I — I — I — • — I — I ’ 

40190 PRINT * I I I I I I I I* 

40200 PRINT * ' — ' — ' — 1 — 1 — 1 — 1 — ' ‘ 

40210 PRINT ’Dead *;S1KUSEN$ 

40220 RETURN 

50000 IF Y0U*<4, 1)=' V" AND 28>LEN<C$)+JIRAI THEN50020 
50010 LOCATEl.il: PRINT * CONGRATULATION 
50020 IF COM# < 4 , 8 ) = ’ V ’ AND LEN<Y$)<28 THEN50070 

50030 LOCATEl.il: PRINT * YOU LOSE 

50040 L0CATE3 , 23 : PR I NT ‘TRY AGAIN M y/n i 
50050 A*=INKEY$: IFA#=* "THEN50050 
50060 IF A#= " n " THEN END ELSE RUN 
50070 RETURN 

60000 END __ 
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300 LOCATEX.Y SPRINT ’SO/’ :LOCATEX.Y+l SPRINT 'N*/' sL0CATEX,Y+2 SPRINT * 

310 IFW=1THENLINE(75,4)-<41,4), ,2sLINE( 75,4 )-( 41 ,4 ) , ’ * ,2s IFSU=0THEN1700 
320 W=0 s IFW=0THENLOCATE77 , 4 s C0L0R2 SPRINT 'X' 

330 FORU=1TO100 sNEXT sLINE(X,Y)-( X+2, Y+2) , " ‘ ,BF 
340 SU=0 s GOTO250 

350 LINE( X , Y )-( X+2 , Y+2 ) , ’ ‘ ,BF sF0RQQ=2T06 8 COLORS SL0CATE41 .QQsPRINT * ' sLOCAT 

E41 ,QQ+1 SPRINT 'SO/' ’ SL0CATE41 ,QQ+2sPRINT ' ■ ' SL0CATE41 ,QQ+3sPRINT VS 'sC 

0L0R7 s LOCATE41 , QQ+4 SPRINT - XXXXX' s BEEP1 SFORT=1TO100 : NEXT s BEEP0 s NEXT 
360 MN=2 S C0L0R3 8 L0CATE41 , 10 s PR I NT ’ ■■■§' s GOTO200 
370 Y=7sLINE(X, Y)-(X+2, Y+2) , " ',BFsVV=0 

380 X1=X1-INT( RND( 1 )*3 ) 8 IFX1-X<-2THEN LOCATEX1 ,9sPRINT ‘ '8X1=75 
390 LOCATEX1, 9 SC0L0R6 SPRINT 

400 GOSUB 210sCOLOR5sIFX<41THENX=41ELSEIFSU=1THENW=W+1sIFW>4THENSU=0 8W=-1 
410 ONSU+1GOTO420 , 430 

420 LOCATEX, Y SPRINT ' O ' s LOCATEX, Y+l SPRINT ' (■) ' sLOCATEX, Y+2sPRINT ' IS'sW=0sG 
OTO 440 

430 LOCATEX , Y 8 PR I NT 'NO/' sLOCATEX , Y+l SPRINT 'S*/' sLOCATEX, Y+2 SPRINT * ' 

440 IFX1=X+2ANDS(J=0THEN1700 
450 IFX1=X+1ANDSU=0THEN1700 
460 I FX=75THEN490 

470 FORU=1TO100 sNEXT sLINE( X, Y)-( X+2, Y+2) , " ' ,BF 
480 SU=0 s LOCATEX1 , 9 s PR I NT ' ' SGOTO380 

490 LINE(X,Y)-(X+2, Y+2) , " " ,BF 8 F0RQQ=6T011 8 COLORS SL0CATE73 ,QQ SPRINT ' 'sLOCA 
TE73.QQ+1 SPRINT ' SO) ' s L0CATE73 , QQ+2 SPRINT ' ■ * 8 L0CATE73 , QQ+3 8 PR I NT * ll's 

C0L0R7 s L0CATE73, QQ+4 SPRINT 'XXXXX' sBEEPl sFORT=lTO100 sNEXT SBEEP0 5 NEXT 
500 MN=3 s C0L0R3 8 L0CATE73 , 15 s PR I NT ' ■■■' s GOTO200 
510 Y=12sLINE(X, Y)-(X+2, Y+2) , ' ',BFsW=0 

520 U=INT( RND( 1 )*3 )-l 5 X2=X2+Us IFX2<42THENX2=42ELSEIFX2>71THENX2=71 
530 C0L0R4sL0CATEX2-l , 13sPRINT ' —> i— ' SL0CATEX2-1 , 14 SPRINT * ’ 

540 GOSUB 210 8 IFX>74THENX=74ELSEIFSU=lTHENW=W+ls IFW>6THENSU=0sW=-2 
550 COLORS SONSU+1GOTO560, 570 

ntn LOCATEX, YsP R !NT ' O ' sLOCATEX , Y+l SPRINT '(■)' sLOCATEX, Y+2 8 PR I NT Vl'sW=0sG 


580 IFX2=XANDSU=0THEN1700ELSEIFX2=X+1ANDSU=0THEN1700 
590 IFX=41THEN610 

600 LINECX, Y-l )-<X+2,Y+2) , ’ ' ,BFsSU=0sGOTO520 

■> BF *' r 0RQQ=llT016sC0L0R58L0CATE41, QQsPRINT ' ' sLOC 

A Z^A2 Q+l!PRINT <0) SL0CATE41 ,QQ+2sPRINT * ■ ' SL0CATE41 ,QQ+3iPRINT '( ) ' 

" XXX>«‘ iBEEP lsFORT=lTO100 sNEXT 8 BEEP0 sNEXT 
620 MN-4sC0L0R3sL0CATE41, 20 SPRINT ■■■ SGOTO200 
630 Y=17 sLINEC X , Y )-( X+2 , Y+2 ) , ’ ' ,BF 

fen * '>*2) sLINE(X3, Y3)-(X3+2, Y3+2) , " ' ,BFsX3=X3-Us IFX3>74THENX3=74 

650 C 9 LOR5sLOCATEX3,Y3sPRINT ' •' s L0CATEX3 , Y3+4 s PR I NT ^ { sCoCATExi^l+^PRINT 

660 GOSUB210 s IFX<41THENX=41 

fan COLORS 8 LOCATEX, Y s PRINT' O' sLOCATEX , Y+l SPRINT ■(■“' s LOCATEX, Y+2sPRINT' I S' 

HI , IF SU=1ANDX3-X=3THENGOSUB700ELSEIFX-X3>-2THEN1700 ’ 2 ' PKINT 1 N 

I 690 LINECX3, Y3)-(X3+2, Y3+2) , " , BF :LINE( X Y )-( X+2 Y+2) " " • 

' ' ELSEIE 

l|LS«^raT|X^YtTOIlS 1 "?LOCATix+i ?! nPRI NT _ '' I> 0CATEX+2 ' Y+1 s PR I NT ' ' ELSE 

730 I FE=UTHENRETURNELSE740 
740 IFE=1ANDU=2THEN1700 

' <“'"-«AT E X.,.2, re ,NT 

780 FORZ=l TO300 s NEXT s MN=5 s GOTO200 

22)A I \4?BFf^sS;N^i 4,BF,LINE<9,16) ‘ <3,23> *' * •7»BFty«21sLINE<41,21)-(42, 

800 IFINTC RND( 1 )*20 ) + l=lTHEN820 

820 GOSUB2108 IFX<5THENX=5ELSEIFX>36THENX=36 
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830 C0L0R5 8 LOCATEX.Y SPRINT ' O " sLOCATEX, Y+l SPRINT ‘ W) ’ 5 LOCATEX, Y+2 SPRINT -HI 

s IFSU=1THENL0CATEX, Y SPRINT - @ - 

840 IFSUI=1ANDZA( X-4 )=0THEN860ELSE850 

850 SU=0sLINE(X,Y)-(X+2,Y+2), ‘ - ,BFsGOTO800 _ , 4 

860 L0CATEX4I X-4 ) , Y4( X-4 ) s PRINT ' ‘ s Y4( X-4 )=Y4( X-4 )-l S IFY4I X-4X17THENZA< X-4 )=1 S 
VV=VV+1 s L0CATEX4( X-4 ) , 16 8 C0L0R4 SPRINT - X - 8 1 FW=32THEN880 

880 COLOR7^FORP=16TO23sLOCATE0 .P SPRINT ' I — I " sBEEPl 8 FORT=1TO80 s NEXT sBEEP0sNEXT 
890 FORX=XTO0STEP-1 sC0L0R5sL0CATEX,Y SPRINT ‘ O ' s LOCATEX, Y+l SPRINT ** sLOCATE 
X, Y+2sPRINT '/< -sBEEPlsFORT=lTO50S NEXT SBEEP0S NEXT . nrAT 

900 FORP=20TO12STEP-1 sCOLOR5sLOCATE0 .PsPRINT "(O SLOCATE0 ,P+1 8 PRINT ■) sLOCAT 
E0,P+2sPRINT '< I * s COLOR? SLOCATE0, P+3 SPRINT ' I— T s COLORS sFORT=lTO70 s NEXT SLOCATE0 
.PsPRINT ' O) - SLOCATE0, P+1 SPRINT '(■ ' s LOCATE0 , P+2 s PR I NT * I ) ’ sFORT=lTO70sNEXTsB 
EEP1SBEEP0 

910 NEXT s MN=6 S GOTO200 . . 

920 Y=12sLINE(X, Y )-< X+2 , Y+2) . " - . BF sLINE< X6 , Y6)-< X6+8 , Y6+2) , ,BF 

930 G= I NT ( RND ( 1 ) *9 ) -3 s X6=X6+G S I FX6< 0THENX6=0ELSE IFX6 >30THENX6=30 

940 L0CATEX6 , Y6 s C0L0R7 SPRINT ' i * SL0CATEX6, Y6+1 SPRINT ’/■■XXX* SL0CATEX6, Y 

6+2SPRINT 

950 BEEP1 SFORP=1TO50 8 NEXT SBEEP0 SL0CATEX6, Y6SPRINT -i— 

960 GOSUB210 s IFX<0THENX=0ELSEIFX>37THENX=37 

970 COLORS s LOCATEX , Y 8 PR I NT " \0/ - s LOCATEX, Y+l SPRINT ‘ ■ ' sLOCATEX, Y+2sPRINT ( ) 
980 IFINT (RND( 1 )*2 ) + l=lTHENLINE( X6+1 ,Y6+3)-(X6+l , 14) , *v" , 1 S FORU=1TO60 8 NEXT 8 IFX6= 
XTHEN1700ELSEIFX6=X-1THEN1700ELSEIFX6=X+1THEN1700ELSELINE( X6+1 , 14 )-(X6+l , Y6+3) . 

990 1 IFSU=1THENLINE( X+3, Y-l )-( X+3, Y6+3) , 'I * ,5sFORU=lTO50sNEXT 8 IFX+2=X6THEN1020ELS 
ELINE( X+3, Y6+3 )-(X+3, Y-l ) , ‘ ',5 

1000 LINE(X,Y)-(X+2, Y+2),' ' ,BF sLINE(X6, Y6)-< X6+8 , Y6+2 ) , ,BF 
1010 SU=0s GOTO930 

1020 F0RP=Y-1T07STEP-1 S COLORS 8 LOCATEX .PsPRINT' O/ ' sLOCATEX, P+1 SPRINT /■ sLOCA 
TEX, P+2 SPRINT - // ' s LOCATEX, P+3 SPRINT - - S BEEP1 8 F0RT=1T065 8 NEXT 8 BEEP0 8 NEXT 

1030 LINE( X,7 >-( X+2 , 10 ) , * - ,BF . . _ 

1040 L0CATEX6, 10 SPRINT * h“ <J !! - s FORP=1TO250 sNEXTsL0CATEX6 , 10 SPRINT sFORP=l 

0TO14 s C0L0RlsL0CATEX6.PS PRINT - /*\ - SL0CATEX6.P-1 SPRINT - ■ - SL0CATEX6, P-2 SPRINT 
- I I - sL0CATEX6,P-3sPRINT - 1 sBEEPl sFORT=lTO100 sNEXT SBEEP0 sNEXT sLINE( X6, 12)-( X6 

+2,14),’ - ,BF 

1050 FORP=4TO0STEP-1 s C0L0R7 s L0CATEX6 .PsPRINT 1 ‘ sL0CATEX6,P+lsPRINT /cm* 

XX* - 8 L0CATEX6 , P+2 s PR I NT - 8 L0CATEX6, P+3 SPRINT - - sBEEPl 8 F0RT=1T01 

00SNEXT SBEEP0SLOCATEX6, PsPRINT ' -r- 'sNEXT 

1060 FORP=X6TO0STEP-lsCOLOR7sLOCATEP,0 SPRINT . - sLOCATEP, 1 SPRINT /CHKXX 

* - sLOCATEP, 2 SPRINT "WW - sBEEPl s F0RT=1T055 sNEXT SBEEP0 sLOCATEP, 0 SPRINT - -i- 

- sNEXT 

1070 LINE(0,0)-<10,3), - ’ ,BFsFORP=lTO500sNEXT 

1080 LINE(0,0)-(30,13), - H - ,5,BsL0CATE9, 1 sC0L0R7sPRINT - Very Good !! - 


GOOD LUCK ! - s FORP=1TO1500 s NEXT s CL 
f“/\ 73t7\ ! - sFORP=1TO1500 8NEXTsPRI 


1090 L0CATE3, 3 SPRINT ’ 779 A 7'5'Z M 391)7. ' 

1100 L0CATE3 , 4 s PR I NT " >1y9. 

1110 L0CATE3 , 5 8 PR I NT ' V\39 1)7 l">f*9 ' ABCD'A 

1120 L0CATE3, 6 SPRINT - M39 J 3->1)*$Vf'7i 9 Jf' 

1130 L0CATE3 , 7 8 PR I NT - *5 7 VIP h 5,7 771)7. 

1140 L0CATE3, 8 SPRINT - 'Jyf K5-7 . 

1150 L0CATE3, 9 SPRINT - 10007> h 7 t9)h. 

1160 COLOR 3 

1170 L0CATE6.il SPRINT - TRY AGAIN? CY/ND - 

1180 IFINKEY$= - y ’ THENL0CATE9, 12SC0L0R1 SPRINT - GOOD LUCK ! - sFORP=lTO1500 S NEXTsCL 
EARSGOTO100 

1190 IFINKEY$= - r> "THENL0CATE9, 12sC0L0Rl SPRINT - f'l\ 7377 ! ! " sFORP=lTO1500 sNEXT sPRI 
NT CHR$( 12) SEND 
1200 GOTO1180 

1210 PRINT CHR*( 12) sF0RI = lT0114sREADXX,YY s COLORS sLOCATEXX.YY SPRINT □ sBEEPlsFOR 
ZZ=1TO20 s NEXT s BEEP0 s NEXT 

1220 C0L0R7 sLOCATEl , 11 SPRINT ‘CHARACTER - s COLORS 8 LOCATE0 , 12SPRINT - O SLOCATE0.13 
SPRINT - (B) - sLOCATE0, 14 SPRINT - II . .MAN - 

1230 COLOR2sLOCATE0 , 16SPRINT - <X . . BEAM ' s C0L0R6 8 LOCATE0 , 18 S PR I NT - • ..BALL - 
1240 C0L0R4 s LOCATE0 , 20 8 PR I NT ’ — i i— 1 8 LOCATE0 , 21 S PR I NT <-•©, .BUG - 

1250 COLORS sLOCATEl 1,12 SPRINT - •’ sLOCATEll , 13sPRINT - -*> - s L0CATE11 , 14 SPRINT */( 
.TEKI - 

1260 C0L0R4sL0CATE12, 16sPRINT SL0CATE12, 17 SPRINT ‘O .HEBI - 

1270 C0L0R7 sLOCATEll , 19 SPRINT ’ i ’ 5 L0CATE11 , 20 8 PRINT - ^■KX* - sLOCATEll ,21 S 

PRINT "^^F.HELI - 

1280 C0L0R7sL0CATE24.il SPRINT ‘Key Function - 

1290 L0CATE24, 12 SPRINT - , i — i - s L0CATE24 , 13 8 PRI NT II IRIGHT I3ILEFT - SL0CATE2 

4 , 14 SPRINT - 1 •— 
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1300 L0CATE24 , 15 : PR I NT ‘, 1 1 . JUMP " : L0CATE24 , 16 s PR I NT " I SPACE 1 2 . SMOG ' s L0CATE2 

4, 17: PRINT '3.KENetc‘ 

1310 L0CATE25, 19:PRINT ‘Program’ SL0CATE27, 20 SPRINT ‘By ‘ :L0CATE24, 21 SPRINT ‘M.Nak 
1320 L0CATE15, 23: PRINT ‘PUSH ANY KEY’ 

1330 LOCATE1 1 , 19 : PR I NT ‘ -r- ‘ : IFINKEY$< >‘ "THEN RETURN 

1340 BEEP1 : FOR I =0TO200 : NEXT : BEEP0 

1350 LOCATE11 , 19 SPRINT ‘ , ‘ : I F I NKE Y*< > ‘ ‘ THEN RETURN 

1360 BEEP1 : FOR I =0TO200 : NEXT : BEEP0 
1370 GOTO1330 

1380 DATA 5, 0,5, 1,5, 2, 5, 3, 5, 4, 6, 0,7, 0,8, 0,6, 2, 7, 2, 6, 4, 7, 4, 8, 4 

1390 DATA 14,0,13,0,12,0,11,0,10,1,11,2,12,2,13,2,14,3,13,4,12,4,11,4,10,4 

1400 DATA 19,1,18,0,17,0,16,1,16,2,16,3,17,4,18,4,19,3 

1410 DATA 21,4,21,3,21,2,21,1,22,0,23,0,24,1,24,2,24,3,24,4,22,2.23,2 

1420 DATA 26,0,26,1,26,2,26,3,26,4,27,0,28,0,29,1,28,2,27,2 

1430 DATA 31,0,31,1,31,2,31,3,31,4,32,0,33,0,34,0,32,2,33,2,32,4,33,4,34.4 

1440 DATA 11,6,11,7,11,8,11,9,11,10,12,10,13,10,14,10 

1450 DATA 16,10,16,9,16,8,16,7,17,6,18,6,19,7,19,8,19,9,19,10,17,8,18,8 

1460 DATA 21,10,21,9,21,8,21,7,21,6,22,7,23,8,24,10,24,9,24,8,24,7,24,6 

1470 DATA 26,6,26,7,26,8,26,9,26,10,27,6,28,6,29,7,29,8,29,9,28,10,27,10 

1480 PRINT CHR$( 12 ) ' ’ ’ 

1490 LINE(5,0)-(29,21),‘*‘,5,B 

1500 C0L0R7:L0CATE13,1: PRINT ‘ESCAPE LAND - 

1510 L0CATE7 , 3 : PR I NT ‘ 7 t9 A M39 J Z ‘ 

1520 L0CATE7, 4 SPRINT m tify-Uly9* 

1530 L0CATE7, 5 SPRINT ‘ 7t9 J F 2*. 

1540 L0CATE7, 6 SPRINT 'b'y'jT ,7* F*9,S+r ♦ ‘ 

1550 L0CATE7, 7 SPRINT ‘7 9yyf 9'tixV 5WW 
1560 COLOR1 :L0CATE7,8sPRINT ‘ No.l BEAM 7 y' *' j7° 

1570 L0CATE7.9SPRINT 'yf VTT 99'U. 

1580 C0L0R2SL0CATE7, 10 SPRINT ‘ No. 2 BOMB f 5*»>7* * 

1590 L0CATE7.il SPRINT m yf VTf 99'M, 

1600 C0L0R3SL0CATE7, 12 SPRINT ‘ No. 3 BUG t 5-‘+>7° ‘ 

1610 L0CATE7 , 13:PRINT ’yf Iff 99'M. 

1620 C0L0R4: L0CATE7 , 14 SPRINT ‘ No. 4 ?* 7 <l'j f' 

1630 L0CATE7 , 15 S PRI NT ' l'V<f 99'9<. 

1640 COLORS SL0CATE7 , 16sPRINT ‘ No. 5 At” 7 
1650 L0CATE7, 17 SPRINT ‘7* yf 99'U. ‘ 

1660 COLOR6:LOCATE7, 18 SPRINT ‘ No. 6 f'9fi Z 9J'9 VJ’ 

1670 x L0CATE7 , 19 s PRI NT ‘r 09"U 

1680 L0CATE13.23SC0L0R1 SPRINT ‘HIT ANY KEY' 

1690 I F I NKEY*= * ‘ THEN1690ELSERETURN 

1700 C0L0R7 s LOCATEX-1 , Y-l : PRINT ‘ ** t- ! ‘ s COLOR 7 : LOCATEX , Y s PRINT ‘ W s LOCATEX , Y+l S 
PRINT ■ sLOCATEX.Y+2 SPRINT V V :F0RI=1 TO500SNEXTI 

1710 NM=NM-1 : LOCATEX-1 , Y-l SPRINT ' ‘sCOLOR 7 : LOCATEX, Y SPRINT ‘ ‘:LOCATEX,Y+ 
1 SPRINT ‘ ‘ s LOCATEX, Y+2 SPRINT ‘ ‘sSU=0:IF NM>0THEN200 

1720 FORP=1TO500 s BEEP1 : BEEP0 : NEXT 

1730 PRINT CHR*( 12) SUIDTH40 :LINE( 0 , 18)-(38,23) , ,4,BF 

1740 COLOR6sLOCATE30,0 SPRINT ‘ : L0CATE31 , 1 SPRINT ‘ SLOCATE30 ,2 SPRINT ‘ Jmr ' : 
PORP=1TO30 s ZX= I NT ( RND ( 1 ) *30 ) S Z Y= I NT < RND ( 1 ) * 10 ) s COLORRND ( 1 ) *6+ 1 s LOCATEZX , Z Y : PR I NT 

1750 FORP=30TO15STEP-1 :C0L0R3:L0CATEP , 15 SPRINT > ‘ s .-C0L0R2: PRINT 1 * ‘sC0L0R3 

sLOCATEP, 16sPRINT ; SC0L0R5 SPRINT ’•■=■; SC0L0R2 SPRINT '/■ ‘ sLOCATEP, 17sC0L0R3 
•NEXT 1 1 V 5 sC0LQR7sPRINT ' :C0L0R2:PRINT V I ‘ :BEEP1:FORT=1TO100:NEXT:BEEP0 
1760 FORT=1TO300 sNEXT 

1770 FORP=16TO20sLOCATE16, P-1 SPRINT ‘ ‘ :C0L0R5sL0CATE16,PsPRINT ‘ ••= ‘sBEEP 

1 s FORT=1TO100 sNEXT SBEEP0 sNEXT :LINE(16,18)-(22,18), ,4 
1780 FORT=1TO300 sNEXT 

1790 FORP=15TO30 s C0L0R3 s LOCATEP , 15 : PRI NT ‘ ♦ ‘ ; :C0L0R2sPRINT‘*‘ sC0L0R3sL0CAT 

EP, 16:PRINT ‘ ‘ ; SC0L0R2 SPRINT ’ /*’ sLOCATEP, 17sC0L0R3:PRINT ‘ I V ; :COLOR7sPR 

INT ’ ‘ s :C0L0R2sPRINT V l‘ sBEEPl :FORT=1TO100 sNEXT :BEEP0 sNEXT 

1800 LINE( 30 , 15 )-(39, 17 ) , ‘ ‘ ,BF 

1810 C0L0R4 SL0CATE16, 17 SPRINT :C0L0R7sL0CATE18, 14sPRINT ‘ ■' SL0CATE17, 15sP 

RINT :L0CATE18,16:PRINT ‘B‘ 

1820 COLORS SL0CATE7, 10 SPRINT — n — i m i — . n r <— i r— i ‘ 

1830 C0L0R5SL0CATE7, 11 SPRINT ’ I t I — I I I I H •IIIIH HH ‘ 

1840 C0L0R4SL0CATE7, 12 SPRINT * >— >-■ • i— i i__i j lj ■ 

1850 L0CATE12,23sC0L0RRND(l) *6+1 SPRINT ‘TRY AGIN? CY/ND ‘ : IFINKEY$=‘y ‘ THENCLEARs G 
OTO100 

1860 I F I NKE.Y * = ‘ n ‘ THENPR INT CHR$(12)sEND 
1870 GOTO1850 






**is«±£* fci'-? 
•HHFfcfcbi:. MU'mVir-kitb 
tit:. r WS ! » smikti- ? j t S 5 BO 
b U < . &*»= i)'C,JLt: b 

©14. t©1S:0b0fc bSx.fcl'JM# 
«c jfc*t*A fc. * 5 i'o fc3W**jfe 
.SS© 4 7 £»»#? x uMto T itm 
t-ci'ofc. t'n*fu ©racial 

AT.'* 7 a-o'x'-x-v* 1 1' 5 « 1 1 

b i:iL©affttttayc7c©au»©j: 5 

*'*> 5 lir/'.j t tali, lot 

< ^©am*. asn^ftts 4 ct 

7 3 ICfc-oA. 


jSTO 


r-A©&{'NJr>*-, x^-x 

4-. I CTRL | *--CisZtt\.'&+. 

m-cmm. Et'*i:9o*@e. m-rfe 

i:90*®e L 4 -to :©3 704-f 
»&? sbiffti 1 , &*■?&&<?)&. 
**•{**' »A< %ot: t S 14, I CTRL l 
*— **l $*»«., Sil*- fcfcLT 
<ftrsi'„ Bffi©*±©-r7' • y 
->P, l»0l'4i6D0®ii'S 
*Stt4To t t-r“B’l4g4r«U 

*+’i4fl-#**u y r> 


(*truiHflLii-)t^L. ’E-um 
ptSLi-fo r-^4-ii«)Ti'< 7 
t.-c', SWi:?j:o-a'j t t** 1 
isjto ::i:x^yr>*#/it' 
i’it. 0 

7>* h#H ’* J 0 ffii:ai-c&ito k 

z~C, t's\— ©m=T. H1=S. El 

=£. m=±ir«oT. r* 

snsflgijnrinio-c, s*&tLT 
(fv'Ji-. x^-x^-fcfcT fc. ^ 

— r-a<tt<c«©rt**. 
^y-V©b< 

*fP* f , J»I*©SS««:*S i-TMWS 
n*i’©t*, t©IBi:. 3-4 ')7>V 
istfsc: t b+»*y^i-r« la** 
o-c. *m©» b ** t ^ y 4 t„ ^ 
4 V7>u#Mix$i*/t.e>-c. $ 
bt: fc**r& 4fc 

it-rt* 1 . I'oi-rbiai'O-tfci'S 



ASn/ui-y»«Tt 


tx^-i'4: < U 1 GAME OVER 
i:*i> ***■&. 

»t LT < A'S i« 

ffi*±i:Hfe©^-r^? n-c i' i T). 
S»Km©fc*i:b5 l-satfjfcfSS 
*ni4, 

#-r. ili^MdJi:,?©!© 

vz 7* ! ii»-r*ni3r. *0&*r«8t« 
ti: 4T. Li'L, ttt!4 

io@L*-«fflrs 4-a-A («o©*» 

©tttta.*A'4s f -«*©Tc, Sfe© 

i JL±<D&&Z5i <ffio-cffiPi:fiJ 


ftJt, UiViiHit. w© 
*Sj£I4, + L 

*nm y rv©ftxiooo+*5»©»x 
looo^.-r^sni tt't,. -cs&tstt 


*»*•«*> i'T\ i**'¥Hfl»lr 
< , u-bx-l y 7>$rA< SA 
¥*&tT4 5^U<A'?i’ t 


y p ? 7 A©A©*1* to- K»» 

y x M *A;*jL-fc-7'LA*t, 
yxh2» 3©-?s'vig7 , n ; 7'?ASr 

A*. -fc-7'L4to 

d- cloadit, y x h 

Hr n - K L A?*, MON0. L 0f y 
X h 2.? t-, LB -ry Xh®«rn- 
K L 4 T. 1 CTRL l 4r- tn #-»|5 ]^f 
C fcl-r. BASIC CiS'lfL, RUN 5 
-£4 To 

♦##XSK : r MAIJKK^St 
ASCB 1983# 1 E 


69 




©Hrn§i^£ 3 zviai ni oiNVd ssrn 


U2.M PANIC IN MAZE 


100 COLOR 3 : CONSOLE 0,25,0,1:COLOR 3sPRINT CHR$U2> 

110 DATA 'III II I I I I I II I I I I I I I II I I I I I I I I 

120 DATA ' I I I I I I I I I I I I I I I I I I I I II 

130 DATA 'III I I I I I I I I III I II I II III 

140 DATA 'I I I I I I I I I I I I III I I I I I I I I 

150 DATA 'I I II till II I I I I I I II I I I I I I I I I 

160 FOR 1=1 TO 5: LOCATE 0,I+2:READ A*sFOR J=1 TO LENIA$)sIF MID*( A* , J, 1 )=’l * THE 

N PRINT 'I ELSE PRINT CHR*<28>; 

170 NEXT J.I 

180 C0L0R7 

190 PRINT' tVU . . 

200 PRINT' UO J tli J ?* 9 915? 99' 91. f * A 15 t* ?'J. 

210 print' Ma j m j a. 

220 PRINT' 8..t'55> 4..t9''J 1x9 6..S4* h9 SPACE BAR.. 71 J DA” 9 97*7. 

230 PRINT' 917 *- + CTRL ?' 7n7° 8* f*77. 

240 PRINT' fe>K9 5-'j 

250 PRINT' 8..8-V* 91 2 .. 59 4 ..t9''J 6..S4* SPACE BAR.-A^S-* 

260 PRINT' ?>9a9 A ?* 9 91 7h 7177. 

270 COLOR 2:PRINT SPRINT SPRINT ' HIT RETURN KEY' 

280 DEF USR=&HD500 

290 FOR I=ASC< 'I ') TO ASC< '■' ) SPOKE&HD505, 1 SPOKE&HD509, 1+ls IF INP(1)=127 THEN 40 
0 ELSE A=USR( 0 ) sNEXT s POKE &HD505, 1 sPOKE &HD509, 135s A=USR( 0 ) 

300 FOR I=ASC( ) TO ASC( '_' ) STEP -1 SPOKE&HD505, 1 SPOKE&HD509. 1-1 8 A=USR<0 ) 8 IF I 
NP( 1 )=127 THEN 400 ELSE A=USR( 0 ) sNEXT 

310 FOR I=ASC< '_' ) TO ASCI '■' ) SPOKE &HD505, 1 sPOKE &HD509, 1 + ls IF INP(1)=127 THEN 
400 ELSE A=USR 1 0 ) s NEXT s POKE &HD505, 135 sPOKE &HD509.ASCI '■' ) sA=USR(0) 

320 FOR I=ASC( '■' ) TO ASCI 'I ' ) STEP -IsPOKE &HD505 , I sPOKE &HD509 , 1-1 s A=USRI0 ) : IF 
INPI 1 )=127 THEN 400 ELSE A=USR(0 ) sNEXT 
330 GOTO 290 
400 DEF USR=&HB022 
410 A=USRI0) 
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10 REM #####«*#*#####«##########*#### 

20 REM ##### ##### 

30 REM ##### ORIGINAL GAME by ##### 

40 REM ##### ##### 

50 REM ##### PATCH'S WORKSHOP ##### 

60 REM ##### ##### 

70 REM ###*«**«*#«**##**«##***#**##** 

80 REM 
90 REM 

100 REM ########## INITIALIZING #*######## 

1 10 CONSOLE0 ,25,0,1: CLEAR3600 , &HDFFF : PRINT CHR*( 12 ) : DEFUSR0=&HE000 
120 DIM RD$(257) :FOR I=257T01 STEP - 1 : READRD$ ( I ) : NEXT 
130 RESTORE3180 :FOR I=&HE000TO&HE00B:READ C*:POKE I , V AL ( ' &h ’ +C$ ) : NEXT 
140 UA$=CHR$(239)+CHR$( 191 ) : XX=&HFD70 :CA=3 
150 UB$=CHR$ ( 135 ) +CHR$ ( 226 ) +CHR$ ( 236 ) 

160 M I $=CHR$ ( &H1C ) +CHR* < &H1D ) +CHR$ ( &H1E ) +CHR$ ( &H1F ) 






170 Ul I DTH80 , 25 : GOSUB 3200 
180 GOSUB 3410 

190 REM ########## initial setting 2 ********** 

200 UIDTH 80, 25 :SC=0:CA=3: LOCATE 31,1: PR I NT '** California Racing **'{L0CATE6 
0 , 1 SPRINT "CAR" ;CA 
210 FOR R=1T022 

220 LOCATE 20,25-R: PRINT RD*(R) 

230 NEXT 

240 POKE XX.&H1E: IN=22 

250 REM ########## MAIN ########## 

260 GOSUB 420 

270 LOCATE 8,0:PRINT 'SCORE* {SC 
280 POKE XX, 0 
290 A=USR0 ( 0 ) 

300 XX=XX+MX:POKE XX.&H1E 
310 IN=IN+1 

320 IF IN>257THEN IN=1 
330 RN= I NT (RND( 1 )*35)+l 

340 IF MID*(RD$<IN>,RN,1)<>'- ' THEN GOTO 380 
350 Q=INM0D3 : ONQ GOTO 370 

360 RD$=LEFT$(RD*< IN), RN-1 )+'#=' +RIGHT$(RD*( IN), 35-RN):GOTO 390 
370 RD$=LEFT$( RD$( IN) ,RN-1 )+"•’ +RIGHT$(RD$( IN) ,35-RN) {GOTO 390 
380 RO$=RD$( IN ) 

390 LOCATE20 , 3 i PR I NT RD* 

400 SC=SC+1 {GOTO 260 

410 REM ********** KEY ********** 

420 ON INSTR(UA$ ,CHR$( INP( 0 ) ) )GOTO 440,450 
430 MX=0 {GOTO 460 
440 MX=-1 {GOTO 460 
450 MX=1 

460 S=PEEK C XX+MX-120 ) 

470 ON INSTR(UB$,CHR$(S) ) GOSUB 500,540,580 
480 RETURN 

490 REM *********** hit wall rout in ********** 

500 FOR J=1T03 { 0UT81 , 33 { BEEP1 { FOR I=1TO10 : NEXT {BEEP0 ! BEEP1 { FOR I=1TO10 (NEXT {BEEP 
0 {BEEP1 {FOR I=1TO150 {NEXT iBEEP0 {0UT81 ,32 {NEXT J 

510 FOR I =0TO10 { POKEXX+1 , &HEC+ I M0D2 { FOR J=1TO40 { BEEP1 { BEEP0 { NEXT { POKEXX-1 , &HED- I MO 
02 {NEXT 

520 POKE XX, &HF0 {LOCATE 35, 8 {PR I NT 'GAME OVER '{FOR I=0TO750 {NEXT {GOTO 3560 
530 REM *********** hit 4= routin *********** 

540 FOR I=1T0 50 {N=( IM0D4 )+l { MA$=MID$(MI* ,N , 1 ) {POKE XX,ASC(MA* ) {FOR J=1T0 I{BEEP 

1 {NEXT {FOR J=1T0I • BEEP 0 {NEXT {NEXT 

550 CA=CA-1 { IF CA=0 THEN GOTO 3560 

560 LOCATE 60,0 {PR I NT ‘CAR'jCA {RETURN 

570 REM ********** hit oil tank routin ########## 

580 BEEP1 { BEEP0 ! SC=SC+10*L 
590 RETURN 

600 REM ********** DAtA ********** 

610 DATA '* ■ ■ *' 

620 DATA ’* . 1 . ■ ■ AAWA #' 






1570 DATA 
1580 DATA 
1590 DATA 
1600 DATA 
1610 DATA 
1620 DATA 
1630 DATA 
1640 DATA 
1650 DATA 
1660 DATA 
1670 DATA 
1680 DATA 
1690 DATA 
1700 DATA 
1710 DATA 
1720 DATA 
1730 DATA 
1740 DATA 
1750 DATA 
1760 DATA 
1770 DATA 
1780 DATA 
1790 DATA 
1800 DATA 
1810 DATA 
1820 DATA 
1830 DATA 
1840 DATA 
1850 DATA 
1860 DATA 
1870 DATA 
1880 DATA 
1890 DATA 
1900 DATA 
1910 DATA 
1920 DATA 
1930 DATA 
1940 DATA 
1950 DATA 
1960 DATA 
1970 DATA 
1980 DATA 
1990 DATA 
2000 DATA 
2010 DATA 
2020 DATA 
2030 DATA 
2040 DATA 
2050 DATA 
2060 DATA 
2070 DATA 
2080 DATA 
2090 DATA 
2100 DATA 
2110 DATA 
2120 DATA 
2130 DATA 
2140 DATA 
2150 DATA 
2160 DATA 
2170 DATA 
2180 DATA 
2190 DATA 
2200 DATA 
2210 DATA 
2220 DATA 
2230 DATA 
2240 DATA 
2250 DATA 
2260 DATA 
2270 DATA 
2280 DATA 
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2290 DATA "# 
2300 DATA •# 
2310 DATA '# 
2320 DATA '# 
2330 DATA - # 
2340 DATA '# 
2350 DATA '# 
2360 DATA 
2370 DATA ' # 
2380 DATA ' # 
2390 DATA ' # 
2400 DATA '# 
2410 DATA ■# 
2420 DATA 
2430 DATA '# 
2440 DATA - # 
2450 DATA '# 
2460 DATA ' # 
2470 DATA 
2480 DATA " # 
2490 DATA 
2500 DATA 1 t* 
2510 DATA ■# 


2520 DATA '# 
2530 DATA '# 
2540 DATA ’ # 
2550 DATA 1 # 
2560 DATA 
2570 DATA - # 
2580 DATA - # 
2590 DATA ' # 
2600 DATA '# 
2610 DATA '# 
2620 DATA ' # 
2630 DATA 
2640 DATA ‘ # 
2650 DATA *# 
2660 DATA 
2670 DATA ' # 
2680 DATA '# 
2690 DATA ' # 
2700 DATA ■# 
2710 DATA 
2720 DATA 
2730 DATA ' # 
2740 DATA 
2750 DATA ' tt 
2760 DATA 
2770 DATA *# 
2780 DATA ’ # 
2790 DATA '# 
2800 DATA 
2810 DATA ' #H 
2820 DATA ‘ » 
2830 DATA "# 
2840 DATA ’# 
2850 DATA ' # 
2860 DATA - « 
2870 DATA ’# 
2880 DATA ’ # 
2890 DATA 1 # 
2900 DATA '# 
2910 DATA *# 
2920 DATA - # 
2930 DATA 
2940 DATA 
2950 DATA ’ # 
2960 DATA 1 # 
2970 DATA '# 
2980 DATA - # 
2990 DATA " # 
3000 DATA ■# 



3010 DATA '# ■ ■ 

3020 DATA '# m m 

3030 DATA '# ■ m 

3040 DATA •# m m 

3050 DATA '# ■ m 

3060 DATA '# ■ ■ 

3070 DATA '# ■ ■ 

3080 DATA "# ■ ■ 

3090 DATA ’# ■ ■ 

3100 DATA '# ■ ■ 

3110 DATA ■ ■ 

3120 DATA '# ■ ■ 

3130 DATA '# ■ ■ 

3140 DATA '# ■ ■ 

3150 DATA '# ■ ■ 

3160 DATA ■# ■ m 

3170 DATA ■# ■ ■ 

3180 DATA 21,3f.fe,01,c8,0a,U,b7,fe,ed, 
3190 REM ########## TITLE ########## 
3200 PRINT CHR*(12):F0R C=1T03 

3210 COLOR C+4: LOCATE C,C+1:PRINT '■ 

4. ■ ■ ■ A W 

3220 COLOR C+4: LOCATE C,C+2:PRINT ’I 
I I \ I I I I 

3230 COLOR C+4 : LOCATE C , C+3 : PR I NT '■ 

3240 COLOR C+4: LOCATE C, C+4: PR I NT ’I 
I \l I I I 

3250 COLOR C+4: LOCATE C,C+5:PRINT '■ 


3280 LOCATE 20,11 :PR I NT ’■ ■■ ■■ ■ ■■■ 

3290 LOCATE 20, 12: PR I NT '■ ■ ■ ■ ■ ■ ■■ ■■ 

3300 LOCATE 20,13:PRINT ' mmmm ■ ■ ■ ■ ■ ■ 

3310 LOCATE 20.14:PRINT '■■■ ■■ ■ ■■■ 

3320 LOCATE 20, 15: PRINT ’■ ■■ ■ — ■ ■ ■■■ 

3330 C0L0R5: LOCATE 5, 18: PR I NT 1 / " 

3340 LOCATE 5,19:PRINT ’ / OO \ 

3350 LOCATE 5, 20: PR I NT ‘ ^ 

3360 LOCATE 5,21: PR I NT ’ , . ^^^ORD^ta- . 

3370 LOCATE 5, 22: PR I NT 1 

3380 LOCATE 5, 23: PR I NT ’ — ■■■ 

3390 C0L0R7: LOCATE 45, 20: PR I NT ‘HIT RETURN KEY ! 

3400 IF INKEY$=CHR$( 13) THEN RETURN ELSE GOTO 3400 
3410 WIDTH 40 ,25: PR I NT CHR*(12) 

3420 LOCATE 4,3:PRINT 'YOU have three cars’ 

3430 LOCATE 4,4:PRINT 'to do this MISSION.' 

3440 LOCATE 4,7:PRINT * ’ 

3450 LOCATE 4,8:PRINT * KEYS RIGHT 14 1 <==> 161' 

3460 LOCATE 4,9:PRINT ' v -^ 

3470 LOCATE 5,15:PRINT 'WRECK * Loose your car 

3480 LOCATE 2,17:PRINT 'OIL TANK • 10*LEVEL ' 

3490 LOCATE 3,19:PRINT ' WALL ■ Game Over' 

3500 LOCATE 5,21: INPUT 'INPUT YOUR LEVEL C1-103':L 
3510 IF L>10 THEN GOTO 3500 
3520 XX=&HFD70:XX=XX-(L*120) 

3530 LOCATE 10,23:PRINT 'HIT ANY KEY !' 

3540 IF INKEY$<>' 'THEN RETURN ELSE GOTO 3540 
3550 REM ########## END TITLE ########## 

3560 WIDTH 40 ,25:PRINT CHR$(12) 

3570 IF SC>HS THEN HS=SC 
3580 LINEC0 , 0 )-( 39,24 ) , " , 4 ,BF 
3590 LINE(3,3)-(35,21) , ' ' ,BF 

3600 IF SC >=5000 1 THENC0L0R6 s L0CATE7 , 6 : PR I NT 'YOU'RE GREATEST DRIVER 
3610 COLOR 7 : L0CATE13 , 10 : PRINT ' GAME OVER ' 

3620 LOCATE 13,13:PRINT 'YOUR SCORE' ;SC 
3630 LOCATE 13,15:PRINT 'HIGH SCORE' ;HS 
3640 LOCATE 11, 17: PR I NT 'FOR ONE MORE RACE' 

3650 LOCATE 12,19:PRINT 'HIT RETURN KEY!' 

3660 IF INKEY$=CHR$( 13 ) THEN GOTO 170 ELSE GOTO 3660 
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10 CONSOLE 0,25,0,1: CLEAR 300.&HCFFF 
20 OEFUSR=&HD000 : DEFUSR1=&HD02E : DEFUSR2=&HD055 
30 GOSUB 1710 

40 DIM X(3),Y(3),MX(3),MY<3>,AX(5),AY(5>,CX<8>,CY(8),HS<5>,NA$(5),C<3).A4(100>,B 

*4(2000 ):DEFINT A-Z 

50 GOSUB 1150: GOSUB 1530 

60 X=50 : Y=10 : R=3 : A=1 : Nl=3 : S=0 

70 BO=500 : T I =0 : Tl=200 : Sl=100 : AD=&HD0A9 

80 X( 1)=5:X(2)=40:X(3)=70 : Y( 1 )=5: Y(2)=10: Y(3)=15 

90 MX(1)=1:MX(2)=1:MX(3)=1:MY(1)=1:MY(2)=1:MY(3)=-1 

100 AX(1)=5:AX(2)=5:AX(3)=5:AX(4)=69:AX(5)=69:AY(1)=5:AY(2)=10:AY(3)=15:AY(4)=5: 
AY(5)=15 

110 CX( 1 )=3:CY( 1 )=3:CX(2)=3:CY(2)=12:CX(3)=3:CY(3)=22:CX(4)=39:CY(4)=21 
120 CX(5)=74:CY<5)=22:CX<6)=74:CY(6)=12:CX(7)=74:CY(7)=3:CX(8)=39:CY(8)=4 
130 C( 1)=&HA8:C(2)=&H48:C(3)=&H88 
140 GOTO 230 

150 REM ======== Yh"9 ========= 

160 K2=INP(0 ) :K1=INP( 1 ) 

170 XI =( (K2=239)-(K2=191 )+(X>61)-(X<5))*4 
180 Yl = ( (K1=254)-(K2=251 )+(Y>15)-(Y<5))*2 

190 POKE AD , &H8 : U=USR ( X*256+Y ) : X=X+X1 : Y=Y+ Y1 : POKE AD,&HC8:U=USR(X*256+Y) 

200 REM ========== yrft ============== 

210 IF INP(9)=191 THEN GOSUB 430 
220 RETURN 

230 REM ======== yjO-lfh Yh*9 ========= 

240 FOR 1=1 TO R 
250 IF X( I ) >65 THEN MX( I )=-l 
260 IF X( I )<5 THEN MX(I)=1 
270 IF Y( I )<5 THEN MY(I)=1 
280 IF Y(I) >16 THEN MY(I)=-1 

290 POKE AD,&H8:U=USR1(X( I )*256+Y( I ) ) :X( I )=X( I )+MX( I ) :Y< I )=Y( I )+MY( I ) :POKE AO,C( 
I ) : U=USR1 ( X ( I ) *256+Y ( I ) ) 

300 NEXT 

310 REM ========= U‘J7> YK“9 ========== 

320 FOR Z=1 TO A 
330 GOSUB 150 

340 IF AX( Z ) >30 AND AX(Z)<43 AND AY(Z)>5 AND AYCZX17 GOTO 630 
350 IF RND( 1 ) >. 15 THEN AX( Z )=AX( Z )+SGN( 39-AXCZ) ) :GOTO 370 
360 AX(Z )=AX( Z)+SGN( 39-AXC Z) ) : AY(Z )=AY< Z )+SGN( 12-AY ( Z ) ) 

370 U=USR2 ( ( AX ( Z ) -1 ) *256+ ( AY ( Z ) - 1 ) ) 

380 PUT@A( 35 ,9 )-( 42 , 16) , A5; 

390 TI=TI+1 : IF TI<T1 THEN 420 
400 IF A<5 THEN A=A+1 
410 Tl=Tl+200 : IF R>0 THEN R=R-1 
420 NEXT :GOTO 230 

430 REM ========== ytt * + ============== 

440 FOR 11=1 TO 8 

450 IF II >6 THEN C=U-6 ELSE C=I1 

460 BEEP1 :LINE ( CX< II )*2-l ,CY< II )*4-l )-( (X+6 )*2-l , ( Y+3)*4-l ) ,PSET,C :BEEP0 
470 NEXT 

480 FOR 11=1 TO 5 

490 IF AX( 1 1 )<=X+6 AND AX( 1 1 )+4>=X+6 AND AY(Il)<=Y+3 AND AY ( II )+3>=Y+3 GOTO 510 

500 NEXT :GOTO 610 

510 C=2:F0R 12=1 TO 70 

520 IF C=3 THEN C=1 ELSE C=C+1 

530 BEEP1 :POKE AD,C(C):U=USR(X*256+Y) :BEEP0 

540 NEXT 

550 S=S+ABS< AXC 1 1 )-39 )+ABS( AY ( 1 1 )-13 ) 

560 IF S>BO THEN S=S+S1 :BO=BO+500 ELSE 580 

570 FOR 1=0 TO 100 :BEEP1:BEEP0: NEXT 

580 COLOR 7 : LOCATE 17,0:PRINT USING •#####■;$ 

590 RR= I NT ( RND ( 1 ) *20 ) : I F RND<1)>.5 THEN AX(I1)=6+RR ELSE AX(I1)=69-RR 

600 AY( II )=INT(RND< 1 )*13 )+5 

610 PUT@A(0,1)-(77,23XB*:GOTO 620 

620 RETURN 

630 REM =========== IV9IW ============= 

640 BEEP1 :FOR J=0 TO 1000:NEXT 

650 COLOR 2: LOCATE 36,11:PRINT - ~ ' ' 

660 LOCATE 36, 12: PR I NT ' \* •/' 

670 LOCATE 36, 13:PRINT * S— r> ' 

680 LOCATE 36, 14: PR I NT ' 
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690 FOR J=0 TO 700 : OUT 81 ,33:BEEP1 :OUT 81 , 32 :BEEP0 :NEXT 

700 LINE (35,9)-(42,16), 'a' ,0,BF 

710 IF N1=0 GOTO 750 ELSE N1=N1-1 

720 COLOR 7: LOCATE 65,0:PRINT N1 

730 PUT@A( 0 , 1 )-( 77 ,23) ,B5{ 

740 GOTO 80 

750 REM ======== <r-i t -IV- =========== 

760 FOR 1=0 TO 3000: NEXT 

770 FOR 1=0 TO 3 

780 FOR J=1 TO 7: COLOR J 

790 LOCATE 12, 4: PRINT 'mmm 

800 LOCATE 11 ,5: PRINT '■ ■ 

810 LOCATE 10 ,6:PRINT ’ ■ 

820 LOCATE 10,7:PRINT '■ ■■■ m m m mmmm' 

830 LOCATE 10,8:PRINT ‘ ■ ■§ ■■■■■■ ■ 

840 LOCATE 11,9:PRINT '■ ■ ■■■ ■ ■ ■ ■ 

850 LOCATE 12, 10: PRINT 'mmm ■ ■■ ■ ■■■■■■' 

860 LOCATE 29,12:PRINT 'mmm ' 

870 LOCATE 28,13:PRINT '■ ■' 

880 LOCATE 27,14:PRINT '■ ■' 

890 LOCATE 26,15:PRINT ' m mmm mmmm mmmm' 

900 LOCATE 27,16:PRINT ' ■ ■ ■ ■ “ ■ ■' 

910 LOCATE 28, 17:PRINT '■ ■ ■ ■ ■ Mi 

920 LOCATE 29,i8:print mmmm ■ mmmmmm ■ m ' 

930 NEXT J , I 

940 IF HS( 5) >=S THEN 50 

950 HS(5)=S:NA$(5)=‘ ‘ : YY=14:T=5 

960 FOR 1=1 TO 5 

970 FOR J=1 TO 4 

980 IF HS< JKHSC J+l) THEN SWAP HS< J) ,HS( J+l ) :S(JAP NA*< J) , NA$< J+l ) : YY=YY-2:T=T-1 
990 NEXT J.I 
1000 GOSUB 1080 
1010 FOR 1=0 TO 5000 

1020 A1*=INKEY$: IF LEN< NA$( T ) )=10 OR A1$=CHR$(13) GOTO 1060 
1030 COLOR 2: LOCATE 26,YY:PRINT NA$( T ) 

1040 IF Al$= GOTO 1050 ELSE NA* ( T )=NA$< T )+Al$ 

1050 NEXT 

1060 IF S>HI THEN HI=S 

1070 FOR 1=0 TO 1000: NEXT :GOTO 50 

1080 REM ===== name La 95>”' ======= 

1090 COLOR 5,0 :UIDTH 40 
1100 FOR 1=1 TO 5 

1110 LOCATE 11 , I *2+4: PR I NT I; - : - ;USING ‘ #####' ;HS( I ) ; : PRINT * By - ;NA$(I) 

1120 NEXT 

1130 COLOR 3: LOCATE 5,2:PRINT ‘♦♦♦♦♦♦♦♦♦♦♦ B EST 5 ♦♦♦♦♦♦♦♦♦♦♦' 

1140 RETURN 

1150 REM ====== 9< hft-fe“7XY ====== 

1160 COLOR 0,0:UIDTH 40,25:PRINT CHR$(12) 

1170 locate 0 ,4 : print mm\ mm i mm mmmm m ■ 

1180 locate 0 ,5: print ' mmm 1 I#||| | \ \ \ m\ \ \ m \ ' 

1190 LOCATE 0,6:PRINT ' l mm 1 1 mmr\ mmmm mmmm r \ i m i i mm • 

1200 LOCATE 0 , 7 :PRINT ' I I I I I III JT\ III m I m I 1^1 | | * 

1210 LOCATE 0 , 8:PRINT ‘ I I I I \\\M \ \ \\ m \M \ m \ II* 

1220 LOCATE 0,9:PRINT 'll I I I I I I I I I I II I I II I I I I I I ' 

1230 LOCATE 0 , 10 :PRINT 'll I I I I I I I I I I H I I II I II I I I ' 

1240 LOCATE 0,11:PRINT ’ll I V I I I I I I I I I I I II /~\ \ | | | * 

1250 LOCATE 0,12:PRINT '11^1 I/ll 11/111/11/ Mil/ - 

1260 LOCATE 0,13:PRINT "11/ I 1 / — — 11/11/ II / — * 

1270 LOCATE 0,14:PRINT ‘11/ 11/ 1^11/ ly 

1280 LOCATE 0,15:PRINT - “ - _ _ _ 

1290 COLOR 5: LOCATE 13,20: PRINT 'PUSH RET KEY - 
1300 GET0(0,4)-(38,15),B^ 

1310 FOR 1=0 TO 4 
1320 FOR J=1 TO 7 
1330 COLOR J:PUTS(0,4)-(38,15),B* 

1340 IF INKEYS=CHR$( 13) THEN RETURN 
1350 NEXT J.I 

1360 -PRINT CHR$( 12) ; : GOSUB 1080:COLOR 4 

1370 LOCATE 5,17:PRINT , - 

1380 LOCATE 5,18:PRINT "ISPACEI - 

1390 LOCATE 5,19:PRINT -l ,- 

1400 LOCATE 8,21 :PRINT 





1410 LOCATE 24, 15’PRINT ' r— . ' 

1420 LOCATE 24,16:PRINT ' 181' 

1430 LOCATE 24,17sPRINT ' r— i S-* t— i ' 

1440 LOCATE 24,18:PRINT ’ 14 I — I — 16 I ' 

1450 LOCATE 24,19:PRINT ‘ ' — • r-*-i 1 ' 

1460 LOCATE 24,20:PRINT ' 121* 

1470 LOCATE 24, 21 SPRINT ' ' 

1480 LOCATE 31,21:PRINT '< h"9' 

1490 LINE(0,0)-(38,23),'*",6,B 

1500 FOR 1=0 TO 4000 

1510 IF INKEY*=CHR$(13) THEN RETURN 

1520 NEXT sGOTO 1150 

1530 REM =========== =========== 

1540 WIDTH 80, 25s COLOR 0,135sPRINT CHR$(12) 

1550 FOR J=0 TO 76 STEP 38 
1560 FOR 1=2 TO 22 STEP 10 
1570 LINE (J,I)-(J+1,I+1),*B‘ ,3,B 
1580 NEXT I,J 

1590 LINE (35,9)-(42,16), ,4,B 
1600 COLOR 3 

1610 LOCATE 36, 11 SPRINT 1 1 

1620 LOCATE 36,12sPRINT I ▼ I 
1630 LOCATE 36,13sPRINT ' I -A. I ' 

1640 LOCATE 36,14sPRINT ' W ' 

1650 COLOR 7s LOCATE 10,0sPRINT 'SCORE 0's 

1660 PRINT SPC(8) s USING "HI SCORE #####' ; HI ; 

1670 PRINT SPC<15);VDy 3' 

1680 GET@A( 35,9 )-< 42 , 16 ) , A?i 
1690 GET0AC 0 , 1 )-( 77, 23) ,B5S 
1700 RETURN 

1710 REM ======== “=========== 

1720 FOR I=&HD000 TO &HD0B6sREAD M^sPOKE I , VAL < " &H ' +M$ ) s NEXT sRETURN 

1730 DATA CD , 9D , D0 , 16 , 04 , 06 , 04 , CD 

1740 DATA A4 , D0 , 16,02 ,06 ,08 , CD , A4 

1750 DATA D0 , 16 , 00 , 06 ,0C , CD , A4 , D0 

1760 DATA 16 , 00 , 06 , 0C , CD , A4 , D0 , 16 

1770 DATA 02, 06, 08, CD, A4, 00,16, 04 

1780 DATA 06 , 04 , CD , A4 , D0 , C9 , CD , 9D 

1790 DATA D0 , 16 , 03,06 , 02.CD , A4 , D0 

1800 DATA 16,01,06,06,CO,A4,D0,16 

1810 DATA 00,06,08,CD,A4,D0,16,01 

1820 DATA 06,06,CD,A4,D0,16,03,06 

1830 DATA 02 , CD , A4 , D0 , C9 , CD , 9D , D0 

1840 DATA CD, F3, 03, 11, 73, D0, 06, 06 

1850 DATA C5,E5,06, 07, 1A , 77, 13, 23 

1860 DATA 10, FA, El, 01. 78, 00, 09, Cl 

1870 DATA 10, EE, C9, 87, 87, 87, 87, 87 

1880 DATA 87, 87, 87, 87, 5E, 20, 5E, 87 

1890 DATA 87, 87, EF, EC, 20, EC, EE, 87 

1900 DATA 87 , 5E , 5E , 5E , 5E , 5E , 87 , 87 

1910 DATA EF.5E, 5E.5E.EE, 87, 87, 87 

1920 DATA 87, 87, 87, 87, 87, 5E, 1C, 23 

1930 DATA 56 , 14 , EB , C9 , E5 , 7C , 82 , 67 

1940 DATA 3E ,00 , C5.E5 , CD ,F8 ,04 ,E1 

1950 DATA 24 ,C1 , 10 ,F4 ,E1 ,2C ,C9 
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PC-8001 mark 1 1 
BIORYTHEM 
BY A.TAKAMI 


) CONSOLE© , 25 , 0 , 1 : U I DTH80 , 25 : C0L0R7 ,0,0 
) CMD SCREEN2 ,0,6: CMD CLS 3 
) DEFINT I-N 
) DIM MN( 12,1) 

) DEFFNM( Y)=-< Y MOD 4=0>AND(Y MOD 400 >0 ) 

) FOR 1=0 TO 1:F0R J=1 TO 12 
) READ MN( J, I ) 

) NEXT: NEXT 

) C0L0R5:PRINTTAB( 15) ;'***** PC-8001 mat 

) PRINT : PR I NT :C0L0R6:PRINTTAB(5) ; ; 

J C0L0R7:PRINT ' Physical 
J COLCR2:PRINT 

) C0L0R7:PRINT - Emotional <!)>;.” a9) 

) C0L0R4 :PRINT 

3 C0L0R7 SPRINT - Mental (ft-O - 
3 LOCATE0 ,5 

3 PRINT - 1 5 10 


340 FOR 1=1 TO 5 
350 PRINT - I - 

360 NEXT 

370 PRINT - I 

380 FOR 1=1 TO 5 
390 PRINT - I - 

400 NEXT 

410 PRINT - 1 1 1 1 *— 1 L 

420 PRINT :CONSOLE20 ,25 

430 INPUT - Birth Date (039?>Y,M,D> " ;BY$,BM,BD 

440 Y$=BY$:GOSUB 670:BY=Y 

450 IF BM< 1 OR NM>12 THEN PRINT CHR$( 7) ; :GOTO 430 

460 IF BD< 1 OR BD>MN(BM,FNM(BY) ) THEN PRINT CHR$(7R; :GOTO 430 

470 INPUT - Biorythm Mounth <Os9?>Y,M) - ;NY$,NM 

480 Y$=NY$:GOSUB 670:NY=Y 

490 IF NM< 1 OR NM>12 THEN PRINT CHR*( 7) : :GOTO 420 

500 M2=FNM ( BY ) i AL=-BD 

510 FOR M=BM TO 12:AL=AL+MN(M,M2) :NEXT 

520 IF BY=NY THEN 570 

530 FOR Y=BY+1 TO NY 

540 M2=FNM( Y) 

550 AL=AL+365+M2 

560 NEXT 

570 M2=FNM(NY) 

580 FOR M=NM TO 12: AL=AL-MN(M, M2 ) :NEXT 

590 IF AL >23*28*33 THEN AL=AL-23*28*33:G0T0 590 

600 P=AL MOO 23:E=AL MOD 28:M=AL MOO 33 

610 FOR X=-4 TO 34 STEP .09:CMD PSET ( X*8+38 , 100-38*SIN( < X+P)/23*6.28) ) ,3:NEXT 
620 FOR X=-4 TO 34 STEP .1:CMD PSET (X*8+38, 100-38*SIN( (X+E)/28*6.28) ) , 1 : NEXT 
630 FOR X=-4 TO 34 STEP .11:CMD PSET (X*8+38, 100-38*SIN( (X+M 3/33*6. 28) ) ,2:NEXT 
640 PRINT SPRINT - V)TX1i 7 ( Yes ••• RETURN KEY , No- • -SPACE KEY) 

650 A$= INKEY*: IF A*= -- THEN 650 
I 660 IF A$= - - THEN CMD CLS 3: GOTO 760 ELSE RUN 
670 Y*=Y*+ - " 

680 IF LEFT$( Y$ , 1 )= - s - THEN Y=VAL( MIO$( Y* , 2 ) >+1925:RETURN 
690 IF LEFT*<Y$,1>= - ' " THEN Y=VAL( MID$( Y$ , 2) >+1900 -.RETURN 
700 Y=VAL(Y$): RETURN 

710 DATA 31,28,31,30,31,30,31,31,30,31,30,31 
720 DATA 31,29,31,30,31,30,31,31,30,31,30,31 

730 DATA 13,-3,57,44,1,9,-7,-9,-2,1,12,-84,17,8,-2,2,-25,8,27,-26,-28,-3,22 

740 DATA 66,23,-89,33,18,-16,6,0,-41,44.21,1,13,3,-17,19,-5,3,-9,-4,14,-102,3,22 

,0,0,51,-37 

750 DATA 32,19,10,-10.9,-1,4,-12,-84,-3 
760 END 
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ut,m up-up ^yyacr^Ls 



60 GOSUB 9000: POKE &HD18C,&HC0:POKE &HD18D.&HD1 

90 ' M'j 

110 GOSUB 9000 

120 GOSUB 1000 'D'i'; *) B7 

130 AA=USR0(0 ) 

140 Z=PEEK( &HD100 ) 

150 ON Z GOTO 200,200,300,400,200,500 

200 ' Alien l\1U DUk 

210 AA=USR3< 0 ) : GOSUB 9800:AA=USR2(0) 

220 D=D+1 : IF D>4 THEN 9100 ' GAMEOVER 

230 AL=AL+1 : IF AL>5 THEN 9300 '*G. CHANGE 

240 POKE &HD102 , &HA7 : POKE &HD101 , VAL( ‘&h‘+AD$( AL) > 

250 GOSUB 590: GOSUB 595: GOSUB 9970: GOTO 130 
300 ' alien B" UFO I J'iVih 

310 FOR 1=0 TO 15: A=USR4(0 ) :BEEP1 :FOR J=1 TO 30:NEXT J : A=USR2 ( 0 ) : BEEP 0:FOR K=1 

TO 20: NEXT K:NEXT I 

320 SC=SC+100*S: GOSUB 9970 

330 GOSUB 590: GOSUB 595: GOTO 230 

400 ' SB? ? 

410 BEEP: GOTO 9100 

500 ' time up 

510 FOR J=1 TO 5: BEEP 1: GOSUB 550: GOSUB 570: BEEP 0: GOSUB 560: GOSUB 580: NEXT J 
520 COLOR 7: GOSUB 590: GOSUB 595: GOTO 200 

550 COLOR 6: LOCATE 10, 10: PRINT ’***** T I M E - U P ! ! ***»*’ : RETURN 

560 LOCATE 10,10:PRINT ‘ " : RETURN 

570 FOR 1=0 TO 250: NEXT I: RETURN 

580 FOR 1=0 TO 50: NEXT I: RETURN 

590 CMD LINE ( 236, 120 )-( 239, 167) , 3 ,BF :RETURN 

595 K=&HD11A:P0KE K,&H30:POKE K+l , &H20 :POKE K+2,&HBB:P0KE K+3.&HA5: RETURN 

1000 ' B"jO 9 B7 

1010 CMD SCREEN 2: CMD CLS 3 
1020 CMD LINE (0 , 16 )-( 239, 199 ) ,2 , BF 
1030 CMD LINE (8,8)-(231,191),0,BF 
1040 CMD LINE ( 232, 110 )-< 319, 199 ) ,2,BF 
1050 CMD LINE ( 232, 180 )-( 239, 191 ) ,0 , BF 
1060 CMD LINE ( 240 ,124)-(311,191),0,BF 
1080 Xl=16: X2=32 : X3=207 : X4=223 : Yl=40 : Y2=65 

1090 FOR 1=1 TO 3: CMD LINE(Xl,Yl)-(X3,Yl+2) ,2,BF:Y1=Y1+50:NEXT I 

1100 FOR 1=1 TO 3: CMD LINE(X2,Y2)-(X4,Y2+2),2,BF:Y2=Y2+50:NEXT I 

1110 Xl=8: X2=31 : X3=208 : X4=239 : Yl=37 : Y2=37 

1120 FOR 1=1 TO 6: CMD LINE< XI , Y1 )-( X2, Yl+2) , 2 , BF: Yl=Yl+25: NEXT I 

1130 FOR 1=1 TO 6: CMD L I NE ( X3 , Y2 ) - ( X4 , Y2+2 ) , 2 , BF : Y2=Y2+25 : NEXT I 

1140 COLOR 2:LINE(60,2)-(77.6), ,B 
1150 COLOR 6: LOCATE 64,4:PRINT - U P - U P‘:COLOR 7 

1160 LOCATE 60, 8: PR I NT USING ‘SCENE ##‘;S 

1170 LOCATE 60 ,9:PRINT USING ‘HI-SCORE- •####' {HS 

1180 LOCATE 60,10: PRINT USING ‘SCORE ####‘;SC 

1185 LOCATE 60,11:PRINT ‘7t> * ; 5-D ; ‘t*‘ 

1187 LOCATE 60,12:PRINT ‘5.3JK tyKT'2 ‘ 

1190 AA=USR1 < 0 ) : GOSUB 2000 
1200 IF INP(9)< >191 THEN 1200 

1210 FOR 1=1 TO 30 : BEEP l:FOR J=1 TO 20:NEXT J:BEEP 0:NEXT I 
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1230 RETURN 

2000 CMD LINE ( 240 , 110 )-( 243, 179 ) ,2,BF 
2010 CMD LINE ( 236 i 120 )-( 239, 167 ) ,3,BF 
2020 COLOR 2: LOCATE 58,14:PRINT ‘F C ENERGY 3* 

2030 LOCATE 58,21 i PR I NT "E" 

2100 RETURN 

9000 ' li'i'j >34 

9010 RESTORE 9020:FOR J=&HD100 TO &HD12F :READ A*:POKE J , UAL ( ‘ &h ‘ + A$ ) : NEXT J 
9020 DATA 00, 4e, a7, 4e, a7, 01, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 03, 80, 00, 01, 66, a2, 66, a 
2,00,01,30,20,bb,a5,00,00,00,00,00,00,00,00,00,00,00,00,00,00,af.d3,5f ,c9 
9030 RETURN 

9100 ' Game Over 

9110 LOCATE 12, 8: COLOR 6:PRINT 

9120 LOCATE 12,9:PRINT '■ ■' 

9130 LOCATE 12,10:PRINT ^B‘; sCOLOR 2:PRINT ‘ GAME 0 V E R '"‘s 

sCOLOR 6:PRINT 1 ■' 

9140 LOCATE 12, 11 SPRINT ’■ ■' 

9150 LOCATE 12,12:PRINT ‘a 1 ; sCOLOR 5:PRINT ‘ t! )?21) 

? <y/n)‘; sCOLOR 6sPRINT ‘ ■' 

9160 LOCATE 12,13sPRINT '■ ■' 

9170 LOCATE 12,14sPRINT ' 

9180 IF INP(5)=253 THEN BEEPs CMD CLS 3sG0T0 9200 

9185 IF INP(3)=191 THEN END 

9190 GOTO 9180 

9200 IF SC>HS THEN HS=SC 

9210 SC=0 sS=l sD=0 sAL=l 

9220 POKE &HD18C.&HC0 SPOKE &HD18D.&HD1 

9230 GOSUB 9000 sGOSUB 595 

9240 GOSUB 1000 s GOTO 130 

9300 ' G. Change 

9310 S=S+ 1 s AL=1 5 GOSUB 9000 sPOKE &HD18C ,&H80 sPOKE &HD18D.&HD2 

9320 LOCATE 10.10SPRINT ’*»*** ?> ‘sCOLOR 7 

9330 FOR J=1 TO 70 s SC=SC+10 s BEEP Is GOSUB 9970 s BEEP 0 s NEXT J 

9340 FOR T=0 TO 500: NEXT T 

9350 GOSUB 1000 sGOSUB 9000: GOTO 130 

9800 ' 

9810 FOR 1 = 1 TO 200: BEEP IsBEEP 0:NEXT Is RETURN 
9960 ' sub routine 

9970 COLOR 7 s LOCATE 60.10SPRINT USING ‘SCORE ####‘;SC 

9980 LOCATE 60,11:PRINT ‘7h ‘ ; 5-D ; ‘ L4* : RETURN 
9999 END 


U^K2 UP-UP 


0000 AF 03 5C CD 30 D1 CD D0 D4 CD 23 D3 CD F0 00 CD :3A 
D010 D0 D4 CD F0 D0 CD 30 D1 CD F0 00 CD D0 D5 CD F0 :BB 
0020 D0 CO 50 D6 CD F0 D0 CO 60 07 C3 03 D0 00 00 00 :EA 
0030 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 : 00 
0040 AF D3 5C 21 4E A7 CD 70 00 21 51 A7 CD B0 D0 21 :88 
D050 54 A 7 CD 70 D0 21 57 A7 CD B0 D0 21 5A A7 CD 70 :D3 
D060 D0 AF D3 5F C9 00 00 00 00 00 00 00 00 00 CA B9 sFD 
D070 22 6E D0 11 50 00 36 00 19 36 10 19 36 44 19 36 :38 
D080 04 19 36 FF 19 36 CF 19 36 FF 19 36 33 2A 6E 00 :A8 
D090 23 36 00 19 36 10 19 36 44 19 36 40 19 36 FC 19 :3E 
D0A0 36 CC 19 36 FC 19 36 30 C9 00 00 00 00 00 00 00 :95 
D0B0 22 6E 00 11 50 00 36 40 19 36 10 19 36 04 19 36 :38 
D0C0 04 19 36 FF 19 36 EF 19 36 FF 19 36 CC 2A 6E D0 :61 
D0D0 23 36 04 19 36 10 19 36 40 19 36 40 19 36 FC 19 :3E 
D0E0 36 EC 19 36 FC 19 36 CC C9 00 00 00 00 00 00 00 :51 
D0F0 01 01 00 21 FF 02 A7 ED 42 20 FC C9 00 00 00 00 : DF 
D100 04 CA B9 CA B9 01 00 01 05 01 01 01 DA A9 00 00 :97 
D110 11 80 0E 01 6B A2 6B A2 05 01 2E 19 5B A6 00 00 :08 
0120 00 01 00 00 00 00 00 00 00 00 00 00 AF 03 5F C9 SAB 
D130 DB 01 FE FE CA 58 D1 AF 32 06 D1 CD 60 D2 3A 07 :C3 
0140 D1 FE 00 CA 00 02 DB 00 FE BF CA 20 02 FE EF CA :76 
D150 40 D2 2A 01 D1 C3 C0 D1 3A 06 D1 FE 01 CA 80 D1 :8D 
0160 CD 60 D2 3A 07 D1 FE 00 CA 00 D2 3E 01 32 06 01 :F3 
D170 C3 80 D1 00 00 00 00 00 00 00 00 00 00 00 00 00 :14 
D180 CD B5 D1 CO A0 D2 3A 21 D1 FE 01 CA C0 D1 CD B5 :9A 
D190 01 CD C0 D2 3A 22 D1 FE 01 CA 88 D2 CD B5 D1 CD :A0 
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PC-8801 +I¥ROM 


◄ it"? (J &h3029 

T-r. r *l.'fc< 

T. WXt EL 



A *!£ 7 * > Hi yj > 5 - C fc a * T ' » 
it, C<7)ffiJ(J&h3A66,*ST-r„ 







u*m m&yxyv-yuy yu 


LOCATE ,,0 iL=0 : IF K<&H3021 THEN START=&H3021 ELSE START=K 
*DEMO . LOOP 

FOR K=START TO &H4F53 
L=L+1 

IF K=P OR L=95 THEN START=K+&HA2 sL=0 :GOTO *DEMO.LOOP 
GOSUB *K.PUT 
GOSUB *UAKU2 
GOSUB *K .DOT 
GOSUB #BELL 
GOSUB #PUSH 
NEXT 

START=&H3021 :GOTO aDEMO.LOOP 


' »>5.” 0 DO 

fcK.PUT 

COLOR 5 : LOCATE 33,23 :PRINT ■&h‘5:COLOR 7 :PRINT HEX$(K); 
PUT ( 500 , 175 ) , KANJI (K ) ,PSET ,6,0 :KK=K :KK$=K$ 

RETURN 

‘ j oot 0 3 lx 

*K . DOT 
COLOR 2 

FOR XX=500 TO 515 
FOR YY=175 TO 190 
X=( XX-500 )+13 : Y=( YY-175)+5 

IF POINT( XX , YY )=6 THEN LOCATE X,Y : PRINT :BEEP 1 :BEE 
NEXT 

NEXT : RETURN 

‘ *1D"sy 

*UIAKU1 

A$( 1 )= " . i* sA*a8) = ‘‘ '■ 

FOR 1=2 TO 17 : A$( I )=" I I* :NEXT 
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1680 RETURN 
1690 : 

1700 ' 9 DO 

1710 *UAKU2 

1720 LOCATE 0,4 : COLOR 4 

1730 FOR 1=1 TO 18 :PRINT TAB(13) A$(I) :NEXT 
1740 RETURN 
1750 : 

1760 ' 3t a - V info 

1770 *PUSH 

1780 COLOR 7 : LOCATE 16,23 

1790 INPUT WAIT 10,'CPUSH RETH’,DUMY$ : RETURN *MA IN. START 

LOCATE 16,23 :PRINT SPC(ll) 

RETURN 


1810 

1820 

1830 


»>*,“ 3 - 


1840 *K. INPUT 




1850 LOCATE 16,23 SPRINT SPC(ll) 

1860 LOCATE 1,23 : INPUT 'kanji code =&h',K$ 

1870 LOCATE 1,23 SPRINT SPCC20) 

1880 IF K$= THEN K=KK+1 s P=VAL ( ‘ &H ' + ( LEFT $(KK$,2) + ’7F" ))s RETURN *DEMO. START I 
1890 IF K$< 2122" OR K$>*4F53' OR 4<>LEN(K$) THEN BEEP sGOTO 1860 
1900 K=VAL( " &h " +KS ) sRETURN 
1910 s 

1920 ' Jt°- (y/n) 

1930 *YES.NO 

1940 COLOR 5 sLOCATE 3,23 SPRINT 'COPY (y/n) ? ’ ; s Y$=INPUT*< 1 ) 

1950 IF 0< >INSTR( " Yy> ‘ , Y$ ) THEN LOCATE 3,23 SPRINT SPC(13) sCOPY 5 
1960 RETURN 
1970 s 

1980 ' V A 

1990 *BELL 
2000 FOR 1=0 TO 2 
2010 BEEP 1 s FOR T=0 TO 60 sNEXT 

2020 BEEP 0 sFOR T=0 TO 40 sNEXT 

2030 NEXT sRETURN 
2040 s 

2050 ' ?OA 

2060 *TITLE 
2070 RESTORE 2290 
2080 FOR XX=1 TO 11 

READ T$ sT=VAL( "&h'+T$) 

PUT ( XX#20+220 , 10 ) , KANJ I (T) , PSET ,5,0 
NEXT 
RETURN 


2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 

2290 DATA 2176,2120,3441, 3B7A . 2120 , 2555 , 2529 , 2573 , 2548 ,2120,2176 
2300 DAT A 2433 , 244E , 2557 , 256D , 2530 , 2569 , 2560 , 244F , 2122 , 3441 , 3B7A , 2352 
2310 DATA 234F , 234D , 4662 , 244E , 2555 , 2529 , 2573 , 2548 , 2126 , 2547 , 213C , 253F 
2320 DAT A 2472 , 2349 , 213F , 234F , 255D , 213C , 2548 , 2472 , 444C , 2437 , 2446 ,2122 
2330 DATA 2522 , 252F , 253B , 2539 , 2439 , 246B , 2433 , 2448 , 244A , 2437 , 244B , 2122 
2340 DATA 4930 , 3C28 , 2447 , 242D , 245E , 2439 , 2123 , 013C ,0148 , 0149 , 0154 , 0100 
2350 DATA 0 141 ,014E , 0159 , 0100 , 014B , 0145 ,0159 , 013E ,0100 , 0100 , 0100 , 0 100 
2360 DATA 215A , 4544 , 4366 , 2120 , 3B30 , 346E , 434B , 215B 
2370 ' END OF LIST 


7>T-T 

fINFO 

RESTORE 2300 sXX=0 sYY=50 sC=7 
FOR 1=1 TO 80 

READ T$ sT=VAL( '&h'+T$) sXX=XX+l 

IF 1=29 THEN XX=1 sYY=YY+30 

IF 1=56 THEN XX=5 sYY=YY+70 

IF 1=73 THEN C=6 

PUT(XX*20+40 , YY) , KANJ I ( T) ,PSET,C ,0 sBEEP IsBEEP 0 
NEXT 

IF INKEY$=' ' THEN 2240 
ROLL 100 -s ROLL 100 
RETURN 
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